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51 1. ABSTRACT 

52 

55 TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE DLH-f 

54 (ASVNCRONOUS LINE INTERFACE). CZDLA (DLll-E OFF LINE 

55 TESTS) AND CZDL8 (DL^-E ON LINE TESTS). THE OFF LINE 

56 TESTS TEST ALL DLll-E LOGIC AND MAY BE USED TO INDIVIDUALLY 

57 TEST UP TO 31 DLll-E 'S. THE OFF LINE TESTS DO NOT REQUIRE THE 

58 USE OF A MODEM. HOWEVER A SPECIAL JUMPER CONNECTOR IS REQUIRED. 

59 THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE- 

60 QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 
61 

62 THREE STARTING ADDRESSES ARE PROVIDED. THEY ARE: 

63 

64 200 - NORMAL START 

65 210 - REMAP DEVICES PRESENT AND RESTART 

66 220 - MODIFY DEVICE ADDRESSES IF NON STANDARD 

67 INSTRUCTIONS TO DO THIS ARE TYPED OUT. 
68 

69 THIS DOCUMENT DESCRIBES THE ON LINE TESTS. 

70 

71 THE AVAILABLE TESTS ARE: 

72 

73 PRGO SINGLE CHARACTER LINE MODE DATA TEST 

74 PRG1 BINARY COUNT LINE MODE DATA TEST 

75 PRG2 MESSAGE TRANSMIT ONLY W/W/O PARITY 

76 Pfi63 RECEIVE DATA TEST 

77 PRG4 MESSAGE TRANSMIT (SPIRAL) ONLY W/W/O PARITY. 
78 

79 2. REQUIREMENTS 

80 

81 2.1 EQUIPMENT 

82 

83 A. PDP 11 SYSTEM 

84 

85 8. DLII-E(S) 

86 

87 C. SUITABLE TERMINAL DEVICE (ASR 33. 37. DATA POINT. ETC) 

88 

89 D. MODEM TYPE 103 OR 202 OR EQUIVALENT 

90 

91 2.2 STORAGE 

92 

93 THIS PROGRAM USES 8k OF MEMORY 
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94 

95 5. OPERATING PROCEDURE: 

96 

97 5.1 LOADING PROCEDURE 

98 

99 THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM. 

100 

101 3.2 DLll-E PARAMETER SELECTION 

102 

103 THE SELECTABLE DLll-E PARAMETERS ARE: 

104 

105 BIT1-0 CHARACTER LENGTH 

106 
107 
108 
109 
110 
111 
112 

113 WHEN A TERMINAL IS INVOLVED DLll-E PARAMETERS SHOULD BE 

IK SET ACCORDING TO TERMINAL SPECIFICATIONS. 

115 

116 3.3 PDP-11 STANDARD OPERATING PARAMETERS 

117 

118 SW15 



BIT1 
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119 SWH 

120 SW13 

121 SW12 

122 SW11 



HALT ON ERROR 
SCOPE LOOP (NOT USED) 
INHIBIT ERROR PRINTOUT 
INHIBIT TRACE TRAP (NOT USED) 
INHIBIT ITERATION (NOT USED) 
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5.4 



GENERAL 



THERE ARE THREE CONFIGURATIONS USING DLll-E/MODEM PAIRS WHICH 
MAY BE SELECTED BY PRGO AND PRG1 . THESE CONFIGURATIONS 
ARE SELECTED BY THE USER WHEN REQUESTED BY THE PROGRAM DURING 
THE LINE CONNECTION ROUTINE. 

THE FOLLOWING PROCEEDURES SHOULD BE FOLLOWED TO SELECT ANY 
OF THE THREE SELECTABLE CONFIGURATIONS: 

CONFIGURATION 0: THIS CONFIGURATION TRANSMITS DATA FROM THE 
DLH-E CONNECTED TO THE LINE THAT WAS CALLED TO THE MODEM THAT 
CAL.-ED (THE CALLER). THIS CONFIGURATION MAY BE USED TO TRAN- 
m:T data to a terminal device, note no data CHECKING IS PER- 
FOWiED BY THE PROGRAM. HOWEVER. DATA MAY BE VISUALLY CHECKED AT 
THE TERMINAL DEVICE. TO INITIATE PROGRAM ACTION CALL THE MO- 
DEM CONNECTED TO A DL11-E FROM A MODEM CONNECTED TO THE TERMINAL 
DEVICE. WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST 
THE CONFIGURATION. SET BITS0-1=00 BY TYPING IN OCTAL FOLLOWED BY A CR, 
WHEN THE 'HANDSHAKING' IS COMPLETED THE PROGRAM WILL REQUEST DLll-E 
PARAMETERS. TYPE THE PARAMETERS AS REQUESTED. THE PROGRAM 
WILL TYPE 'LINE CONNECTION MADE' AND BEGIN DATA TRANSMISSION. 



***************** 

* * 

* * 

* DATA SET »=== 

* * 

* * 
***************** 

* 
* 
* 

* 

***************** 
» • 

* DL11-E * 

* « 

* • 
***************** 



**************** 

* 

* 

-_ * DATA SET 
* 
* 



* 

**************** 



REMOTE 
TERMINAL 



CONFIGURATION 0 



CONFIGURATION 1: THIS CONFIGURATION TRANSMITS DATA FROM THE 
DL11-E CONNECTED TO THE LINE THAT WAS CALLED TO THE DLll-E CON- 
NECTED TO THE LJNb THAT CALLED (THE CALLER). TO INITIATE 
PROGRAM ACTION CALL THE DLll-E YOU WISH TO TRANSMIT ON FROM THF 
LINE CONNECTED TO THE DL11-E YOU WISH 10 RECEIVE THE DATA ON. 
WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST 
THE CONFIGURATION AND MODEM TYPE. TYPE BIT0-1=01 t BIT2=0 IF 
A 103 COR EQUIV.) AND BIT2=1 IF A 202 (OR EQUIV.). 
THE PROGRAM WILL REQUEST THE LINE NUMBER THAT YOU CALLED FROM. 
TYPE THIS IN OCTAL FOLLOWED BY A CARRIAGE RETURN. WHEN THE CARf*:?! 
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216 



IS HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET. 
rOU HAVE APPROXJMATLY 10 SECONDS IN WHICH TO DO THIS. WHEN 
THE 'HANDSHAKING' IS COMPLETED THE PROGRAM WILL REQUEST 
DL11-E PARAMETERS. TYPE THE PARAMETERS AS REQUESTED. 
THE PROGRAM WILL TvpE 'LINE CONNECTION MADE' AND 
BEGIN DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN 
PROCESSED (TRANSMITTED/RECEIVED AND CHECKED) THE BELL WILL 
RING AT THE TTY. AND ANOTHER 100. CHARACTER BLOCK WILL BE 
PROCESSED. 

NOTE. DL11-E#X REFERS TO THE "CALLED* DLll-E. AND DL11-E*V RE- 
FERS TO THE CALLING DLll-E. 



DAIA SET 



DATA SET 



• 
* 



DLll-E 



DLll-E 



UNI BUS 



CONFIoURATJON 1 103 OR 202 
CONFIGURATION 2 103 ONLY 
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3.5 



CONFIGURATION 2: THJS CONFIGURATION TRANSMITS DATA FROM BOTH 
THE CALLED TRANSMITTER AND THE TRANSMITTER CONNECTED TO THE 
LINE THAT WAS CALLING. I.E. IN ADDITION TO THE DATA TRANSMITTED 
AS IN CONFIGURATION 1 DATA IS ALSO TRANSMITTED IN THE REVERSE 
DIRECTION. TO INITIATE PROGRAM ACTION CALL THE DLll-E YOU WISH 
TO TRANSMIT ON FROM THE DLll-E YOU WISH TO RECEIVE/TRANSMIT ON, 
WHEN THE PHONE RINGS AT THE PDP11 THE PROGRAM WILL REQUEST THE 
CONFIGURATION AND MODEM TYPE. TYPE 8IT0-1 "10 AND BIT2=0. NOTE: 
**»*»**»D0 NOT USE MODEM TYPE 202 (OR EQUIV) USING CONFIG *2**** 
THE PROGRAM WILL REOUESi" THE LINE YOU CALLED FROM. TYPE THE 
NUMRER IN OCTAL FOLLOWED BY A CR. WHEN THE CARRIER IS 
HEARD IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET. 
NOTE YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS. 
WHEN THE 'HANDSHAKING IS COMPLETED THE PROGRAM WILL REQUEST 
TWO SETS OF DL11-E PARAMETERS. THE CHARACTER LENGTH OF BOTH SETS 
MUST BE THE SAME AND THE SPEED OF THE SECOND SET MUST BE GREATER 
THAN THE SPEED OF THE FIRST. nMEN THE PARAMETERS HAVE BEEN LOAD- 
ED THE PROGRAM WILL TYPE 'LINE CONNECTION MADE' AND BEGIN TO 
WAY DATA TRANSMISSION. WHEN 100. CHARACTERS HAVE BEEN RECEIVED 
AND CHECKED THE BELL WILL RING AT THE TTY, AND ANOTHER BLOCK 
OF 100. CHARACTERS WILL BE PROCESSED. 

NOTE. DL11-E#X REFERS TO THE 'CALLED' DLll-E. AND DL11-E*Y RE- 
FERS TO THE 'CALLING' DLll-F. 

LINE NUMBERS 

LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS. 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



00 
01 



77561 X 
77562X 

02 77563X 

03 77564X 

04 77565X 

05 77656X 

06 77567X 

07 775 70X 



LINE 
LINE 
LINE 
LINE 

LINE 
LINE 
LINE 
LINE 



10 77571X 

11 77572X 

12 77573X 

13 7757<.X 

U 77575X 

15 77576X 

16 77577X 

17 77600X 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



20 77601 X 

21 77602X 

22 77603X 

23 77604X 

24 77605X 

25 77606X 

26 77607X 

27 7761 OX 



IINE 30 
LINE 31 
LINF 32 
LINE 33 
LINE 34 
LINE 35 
LINE 36 



776nx 
7761 2X 
7761 3X 
7761 4X 
7761 5X 
7761 6X 
7761 ^X 
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4.2 



4.3 



USE PROCEDURE 

IHJS PROGRAM HAS BEEN MODIHED TO RUN WITH OR WITHQU^ 
A CONSOLE PROCESSOR. 

IF A CONSOLE MACHINE IS USED; THEN THE PROGRAM 
LOOKS AT THE HARDWARE SWITCH REGISTER. 
IF A CONSOLE-LESS MACHINE IS USED; THEN THE PROGRAM 
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 
SOFTSR (176) AS A SWITCH REGISTER. 

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL 
USE THE CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES, 
THE PROGRAM WILL PRINT OUT THE PRESENT CONTENDS OF THE SOF TWARF 
SWITCH REGISTER WHEN THE PROGRAM IS STARTED. IT WILL THEN ASK 
FOR THE NEW CONTENTS TO BE INPUT TO THE SOFTWARE SWITCH REGISTER. 
TYPE CARRIAGE RETURN TO FINISH INPUT. 

PRGO SINGLE CHARACTER LINE MODE DATA TEST 

A. LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000200) 

B. START - PROGRAM WILL REQUEST PROGRAM NUWBER 

C. THE PROGRAM WILL NOW REQUEST THE DATA. TYPE THE DATA IN OCTAL 
FOLLOWED BY A CARRIAGE RETURN. 

D. MAKE LINE CONNECTION. SEE SECT 3.4 

PRG1 - BINARY COUNT LINE MODE DATA TEST 

A. LOAD ADDRESS = 000200 

B. START - PROGRAM WILL REQUEST PROGRAM ^^UMBER 

C. MAKE LINE CONNECTION SEE SECT 3.4 

PRG2 - SPECIAL MESSAGE XMIT ONLY 
A. LOAD ADDRESS = 000200 

START - PROGRAM WILL REQUEST PROGRAM NUMBER 



B. 

C. 

D 



DEPRESS STAHT - THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DLll-E PARAMETERS 

(SEE SECT 3.2) 



TYPE IN PARAMETERS. IF IT IS DESIRED TO TRANSMIT 
DATA WITH PARllY SET BIT6. ALSO SET BITS TO TRANSMIT ODD 
PARITY AND CLEAR TO TRANSMIT EVEN PARITY. 

BIT6 1/0 ENABLE/DISABLE PARITY 
BITS 1/0 TRANSMIT ODD/EVEN PARITY 
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310 

511 E. WHEN 'MAKE LINE CONNECTION ' IS TYPED CALL THE Dlll-E 

312 YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM. 

313 WHEN THE 'HANDSHAKING' IS COMPLETED THE MESSAGE 

314 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BAfK 

315 0123456789' WILL BE TRANSMITTED. TO TERMINATE. HANG UP. 
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4.4 PR63 - RECEIVE TRANSMIT MESSAGE TEST 

A. LOAD ADDRESS = 000200 

B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 

C. THE PROGRAM WILL IDENTIFY ITSELF AND 

TYPE INSTRUCTIONS TO SELECT DESIRED OPTIONS. 

D. SET IN OPTIONS AND PRESS CONTINUE. 

E. WHEN "MAKE LINE CONNECTION' IS TYPED CALL THE DL11-E 
YOU WISH TO TRANSMIT ON. WHEN THE 'HANDSHAKING' IS COMPLETED 
THE DL11-E WILL TRANSMIT A CRLF TO THE TERMINAL DEVICE. AT THIS 
TIME YOU MAY BEGIN TO SEND DATA FROM THE DEVICE TO THE DL11-E 
WHERE IT WILL BE ECHOED BACK TO THE TERMINAL. TYPE ANY CHARACTER 
TO SIGNAL START OF MESSAGE. THEN TYPE MESSAGE AND THE SAME 
CHARACTER TO SIGNAL END OF MESSAGE. CONTROL C WILL CAUSE THE 
BUFFERS CONTENTS TO BE TRANSMITTED WHEN TYPED. 

F. IF NO ECHO IS DESIRED (ON A CHARACTER BASIS FOR EXAMPLE 
WHEN USING A TERMINAL THAT PRODUCES ITS OWN LOCAL COPY) 
SET BiT7 OF SWITCH REGISTER. 

4.5 PR64 - SPECIAL MESSAGE XMIT ONLY 

A. LOAD ADDRESS = 000200 

B. OPTIONS 

1. BITS 0-2 = 4 

2. BITS 3-6 = LINE NUMBER (SEE SECT 3.5) 

C. DEPRESS START - THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DLll-E PARAMETERS 

(SEE SECT 3.2) 

D. SET IN PARAMETERS IF IT IS DESIRED TO TRANSMIT 

DATA WITH PARITY RAISE SR6. ALSO RAISE SR5 TO TRANSMIT ODD 
PARITY AND LOWER TO TRANSMIT EVEN PARITY. 

BIT6 1/0 ENABLE/DISABLE PARITY 
BITS 1/0 TRANSMIT ODD/EVEN PARITY 

E. WHEN "MAKE LINE CONNECTION * IS TYPED CALL THE DLi:-E 
YOU WISH TO TRANSMIT ON FROM THE TERMINAL MODEM. 

WHEN THE 'HANDSHAKING* IS COMPLETED A SPIRAL 
PATTERN WILL BE TRANSMITTED. TO TERMINATE. HANG UP. 
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364 5. PROGRAM DESCRIPTIONS 
365 

366 5.1 PRGO - SINGLE CHARACTER LINE MODE DATA TEST 
367 

368 PRGO TRANSMITS USER SPECIFIED DATA AND A CARRIAGE RETURN/LINE FEED 

369 EVERY 72ND CHARACTER. 
370 

371 5.2 PRG1 - BINARY COUNT PATTERN LINE MODE DATA TEST 
372 

373 PRG1 TRANSMJTS A BINARY COUNT PATTERN. THIS PROGRAM IS THE SAME 

37A AS PRGO EXCEPT FOR THE DATA TRANSMITTED. 

375 

376 5.3 PR62 - SPECIAL MESSAGE TRANSMIT ONLY 
377 

378 PRG2 TRANSMJTS THE MESSAGE 

379 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123A56789. 

380 NO DATA ERROR CHECKING IS PERFORMED BY THE PROGRAM. 
381 

382 5. A PRG3 - RECEIVE /TRANSMIT MESSAGE TEST 
383 

38A PRG3 - RECEIVES DATA FROM A TERMINAL AND READS THE RECEIVED MESSAGE 

385 BACK. AND TYPES THE MESSAGE ON THE PDP-11 TTY WHEN THE MESSAGE 

386 IS TERMINATED. CHARACTERS MAY BE ECHOED BACK (IF REQUIRED) CN 

387 A CHARACTER BASIS THEREBY CREATING LOCAL COPY AS THE MESSAGE 

388 IS TYPED. 

389 TRANSMISSION MAY BEGIN AT THE TERMINAL WHEN A CR/LF IS RECEIVED 

390 AT THE TERMINAL. THIS PROGRAM IS RESTRICTED TO USE BY ONLY 

391 FULL DUPLEX MODEMS. 
392 

393 5.5 PRG4 - SPECIAL MESSAGE TRANSMIT ONLY 
394 

395 PRG4 TRANSMITS A SPIRAL PATTERN. 

396 NO DATA CHECKING IS PERFORMED BY THE PROGRAM. 
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6.0 ERRORS 

THERE ARE TWO TYPES OF ERRORS WHJCH ARE DETECTED BY THESE TE^ts 
LINE FAILURE, AND DATA ERRORS. 

LINE FAILURES ARE DETECTED AND REPORTED BY ALL TESTS, AND 
DA'^A ERRORS ARE DETECTED ONLY IN PRG 0 fcl WHEN USING CONFIG- 
URATIONS 1 OR 2. DATA ERRORS IN THE OTHER TESTS MAY BE DETECT- 
ED BY VISUAL INSPECTION OF THE DATA AT THE TERf*INAL. 
LINE FAILURES ARE REPORTCD BV TYPING THE PC, THE RECEIVER CON- 
TROL STATUS REGISTER ADDRESS, AND ITS CONTENTS. SEE THE PRO- 
GRAM LISTING FOR A DETAILED DESCRIPTION OF THE ERROR. 
THE MOST FREQUENTLY ENCOU^JTERED ERROR WILL PROBABLY BE THE 
LOSS OF CARRIER. THIS ERROR WILL BE REPORTED IF AFTER A LINE 
CONNECTION IS MADE THE CARRIER IS LOST. EITHER BY 'HANGING UP' 
OR A 'GLITCH' ON THE LINE CAUSING THE CARRIER TO MOMENTARILY 
DROP. IN EITHER INSTANCE THE PROGRAM DISCONNECTS THE DLH-E 
FROM THE MODEM (BY CLEARING DATA TERMINAL READY) AND THE 
LINE WILL HAVE TO BE RECONNECTED TO RESl/IE TESTING. 
IF IT IS PHYSICALLY IMPOSSIBLE TO GET TO THE DATA BUTTON 
WITHIN THE TIME ALLOTTED (APPROX. 10 SECONDS) TO MAKE THE 
LINE CONNECTION, THIS TIME MAY BE INCREASED BY PUTTING A 
LARGER NUMBER INTO THE DELAY. PATCH THE LARGER NkTBER 
INTO THE ADDRESS FOLLOWING THE DELAY EMT (BETWEEN RINT8G AND 
RINT8H).F0R EXAMPLE PATCHING IN 72460 WILL ALLOW APPROXIMATELY 
30 SECONDS IN WHICH TO RESPOND. 

DATA ERRORS ARE REPORTED BY TYPING THE PC. THE RECEIVER CONTROL 
REGISTER ADDRESS OF THE LINE THAT FAILED,WHAT THE DATA SHOULD 
HAVE BEEN,WHAT THE DATA WAS,AND THE CHARACTER NlfCER. 

PC=XXXXXX 174010 DATA S/8 301 WAS 321 CHAR NO 23 

THIS TYPEOUT INDICATES A DATA ERROR ON LINE 1 
IF CONFIGURATION 2 IS SELECTED TWO ERROR TYPOUTS MAY OCCUR 
FOR A SINGLE ERROR DEPENDING ON WHERE THE ERROR OCCURED. CON- 
FIGURATION 2 COMPARES THE DATA RECEIVED AT THE CALLED DL11-E 
WITH THE DATA TRANSMITTED BY THE CALLED DLll-E, AND ALSO THE DATA 
RECEIVED AT THE CALLING DLH-E (CALLER) WITH THE DATA TRANSMITTED 
BY THE CALLED OLII-E. 

IF FOR EXAMPLE A DATA ERROR OCURRED AT THE RECEIVER OF THE CALLING 
DLIl-E CAUSING IT TO TRANSMIT INCORRECT DATA TO THE CALLED OLll-E TWO 
TYPEOUTS WILL OCCUR AS SHOUN BELOW: 

PC=XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 23 
PC=XXXXXX 174000 DATA S/8 301 WAS 321 CHAR NO 23 

THESE TYPEOUTS SKJW THAT THE RECEIVER ON LINE 0 WAS THF lAUSE 
OF THE ERROR AN.'^ THE RECEIVER ON LINE 1 RECEIVED THE CORRECT 
INCORRECT DATA. 



********** HISTORY ********** 

CH6C1 - NEW STORAGE LOCATIONS FOR REFERENCE IN *G MODE 

CHGC2 - CHANGE START UP FOR ENTERING SOFTWARE SWITCH REGISTER INFO. 

CHGC3 - SOFTWARE STORAGE LOCATIONS 

CHGC4 - ROUTINE TO CHECK PRINTOUT. UPDATE SOFTWARE SWITCH REG. 
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455 CHGC5 - NEW MESSAGES FOR SOFTWARE SWITCH REG ROUTINES, 

CHGC6 - PART OF CHGC2. NECESSARY TO DIVIDE INTO TWO PARTS 

455 • 

456 .ENDR 
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.TITLE CZDL8C0 DLlI 


-E ON LINE TSET 


*♦ JO 






.ENABLE A8S,AMA 










•THIS TEST CHECKS THE DL11-E 


USING MODEMS 








:REFER ALSO TO TEST DZDLA (DLli-E OFF LINE TESTS) 


•to 1 






•STARTING PROCEEDURE 










LOAD ADDRESS 200 




















STACK POINTER IS AT 


1200 








PRESS START 














467 






•AVAILABLE PROGRAMS 




468 






PR60- SINGLE CHARACTER LINE MODE DATA TEST. 


469 






PRGl- SPECIAL BINARY 


COUNT LINE MODE DATA 7ES7, 


470 






PRG2- SPECIAL MESSAGE XMIT ONLY W/W/0 PARITY 


471 






PRG3- RECEIVE DATA TEST 


^72 






PRG4- SPIRAL PATTERN 


MESSAGE XMI7 ONLY U/U/O PARI 7 Y 


473 






PR65- DATA ECHO TEST 


(USES FACILI7Y A7 MAYNARD) 


474 
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STANDARD SR SWITCH OPTIONS 


(SWI7CH SE7 TO A 1 ) 


476 






SRI 5- HALT ON ERROR. 










SRI 4- SCOPE (NOT USED) 




478 






SRI 3- INHIBIT PRINTOUT 




479 






SRI 2- INHIBIT TRACE (NOT USED) 


480 






•SRll- INHIBIT ITERATION (NOT USED) 


481 




000000 


.=0 




482 


000000 

www/ 


004576 


ERTP 


.UNASSIGNcD TRAP 


483 


000002 


000000 


0 


484 


000004 

w wv^ 


004576 MACHER: ERTP 


;SP OVERFLOW. BUS ERROR 7RAP 


485 


000006 


000040 


40 


486 


000010 

WW 1 V 


004576 


ERTP 


.•RESERVED INS7RUCTI0N TRAP 


487 


000012 

WW 1 fcp 


000100 


100 


488 


000014 

WW 1 ~ 


004576 


ERTP 


.•TRACE TRAP 


489 


000016 

WW 1 \J 


000140 


140 


490 


000020 


004704 


MAPVEC 


.TRAP TO MAP VECTOR 


491 


000022 


000340 


PRTY7 


492 


000024 

wwc~ 


002724 


PFAIL 


.POWER FAIL TRAP 


493 


000026 


000340 


PRTY7 


494 


000030 

WW 


002300 


EMTINT 


;EMT TRAP 


495 


000032 

WW^w 


000340 


PRTY7 


496 


000034 


004576 


ERTP 




497 


000036 


000340 


340 




498 


000040 


000042 


.+2 




499 


000042 

WW^ b 


000000 


HALT 




500 




000167 


.REPT 119. 




501 






.*2 




502 






4 


.-TRAP TO MAP MAKER 


503 






.ENDR 




504 










505 






EQUATE STATEMENTS 




506 




1 /7776 


PSW=1 77776 




507 




001200 


STKPTR=1200 




508 




000000 


0PEN=0 




509 




100000 


MANUAL =81715 




510 




100000 


BITl 5=1 00000 




511 




040000 


8ITU=40000 




512 




020000 


BI 713=20000 





C2DL8C0 Dl r-E ON LINE 



C 7f\l 01 1 


1 Q_ II II 70 


J 1 3 




CI /. 


uo*»uou 


C1 c 


AAOA/\A 


510 


AA1 AAA 


CI 7 


AAA/ AA 


C1 fi 

J 10 


AAA 0 AA 


C1 Q 

3 IT 


AAA1 AA 


con 




C01 


AAAAOA 


coo 


AAAA1 A 


COl 


AAAiSA* 


co^ 

JCH 


AAAAAO 


C5C 

JC J 


rtAAAAl 




AAC70A 

kMji CO 


C07 
PC ' 


AOOAO,i 


^00 


AAAT/.A 
UWOhU 


COO 


AAA7AA 


0 


AAAOAA 


C71 

0 J 1 




CIO 


Af4A1 AA 


CT? 


AAA1 AA 
UUU 1 UU 


cv. 

0 j*» 


AAAA/ A 


0 00 


AAAAAA 


C V. 
000 


1 (V.AAA 


0 31 


1 AAAA1 


ooo 


1 AA AA 0 


C7Q 

OOt 


1 U*»Wo 




1 AAAAA 


C/. 1 
0*» 1 


1 AAAAC 


CZ.0 

3«»c 


1 n/.rv\A. 
1 u*»uuo 


cz. ? 
0*» J 


1 /V/ AA7 




1 A/ A1 A 


CZ.C 
0«tO 


1 AAA1 1 


C/.A 
0*tO 


1 AAA1 0 
IU*»U 1 d 


CZ.7 


1 AAAI 7 
1 vhU I 0 


0'«O 


1 AAAI A 


CAO 
0*»7 


1 AAAI C 
1 \JH\J ! 0 


ccn 


1 A/ A1 A 


CC1 
00 1 


AAAAAA 


ceo 

00c 


AAAAAA 


000 




CCA 

oo** 




ccc 
000 




CCA 
000 




CC7 

OOf 




CCfi 
000 




CCQ 

007 




CAA 

oou 




CA1 

00 i 




CAO 
OOc 




CAT 
000 




oo*» 








566 




567 




566 





TSET 
15;06 



HACvn 50A(1052) 19-JUL-79 



B 2 

15:10 PAGE 



SEU OOU 



RISR'N' 



riSR'N' 



BJT12=10000 
Bjn 1=4000 
BJ 110=2000 
B J 19=1000 
BI 18=400 
BJ 17=200 
Bl 16=1 00 
BI 15=40 
B1T4=?0 
B1T3=10 
BiT2=4 
6IT1=2 

Bno=i 

P0PSP=5726 

P0PSP2=0226?6 

PR Ty 7=340 

PRTY6=300 

PRTy5=240 

PRrY4=?00 

PRTY3=U0 

PRTY3=100 

PRTY1=40 

PRTYO=0 

T/PE=E«T*0 

TYPES=E«T*1 

STALL=E«T*? 

ERR0R=E«T*3 

DATCHK=EHT*4 

CHALT=EMT*5 

STRXV=EMT*6 

STTXV=EMT*7 

EHALT=Em*10 

SAVREG=E«T*11 

RSTR£6=Em*12 

ERR0R1=EHT*13 

ERRTX=EMT*14 

ERRRX=E«T*15 

DELAY=EMT*16 

N=0 

A=0 



.MACR CNVCA SRC .DST .COUNT 



POP THE STACK. SAME AS TST (6)* 

POP STACK TWICE. SAME AS CMP (6)*. it)* 

PRIORITY LEVEL DEFINITIONS 



JSR 
SRC 
DST 
COUNT 
.ENDM 



.MACR ISR 



X5.0ACNV 



GO TO OCTAL TO ASCII CONVERT. 
SOURCE ADDR. 
DESTINATION ADDR. 
#0F DIGITS TO CONVERT. 



^MP 
.ENDM 



N 

MOV *'N'.XO 
RISR ;60 TO COMMON INTERRUPT SERVICE ROUTINE 



.MACR ISRT 
MOV 



N 

M'N'AO 



;PUT LINE » IN RO 



CZDLBCO DL11-E ON LINE ISET 
fZDlBC.PII 19-JUL-79 75:06 



569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 0001 70 

596 0001 72 

597 0001 74 

598 000176 
599 

600 
601 
602 
603 
604 
605 

606 000200 
t>07 000206 

608 000210 

609 000216 

610 000220 

61 1 000226 
612 

613 000232 

614 000236 

61 5 000242 
616 

617 000250 

618 000256 

619 000260 

620 000262 

621 000264 

622 000272 

623 000300 

624 000304 



C 2 

MAfVil 30A(105<^) 10-JUL-79 15:10 PAGE 15 



SEO 0015 



0001 70 
177570 
177570 
000000 
000000 



Jl«1P TISR 
,ENDM 

.MACR RRCV N.A 

175610t-N 

.ENDM 

.MACR R8UPF N.A 

175612t-N 

.ENDM 

.MACR TXMT N,A 

175614t-N 

.ENDM 

.MACR T8UFF N.A 

175616+N 

.FNDM 



CHGC3 ••»*•»»»*» 



SRPTR: 
DISPREG: 
DISPLAY: 
SWREG: 



,=170 



177570 
177570 
OPEN 
OPEN 



000200 








.=200 


012737 


001436 


000312 




MOV 


000407 








BR 


012737 


001432 


000312 




MOV 


000403 








BR 


012737 


002102 


000312 




MOV 


012706 


001200 




STCONT: 


MOV 


013746 


000006 




CHGC2: 


MOV 


013746 


000004 






MOV 


012737 


000262 


000004 




MOV 


022777 


^77777 


177712 




cr¥> 


001402 








BEQ 


000407 








BR 


022626 






64$: 


CMP 


012737 


000 V6 


000170 


65$: 


MOV 


012737 


000174 


000172 




MOV 


012637 


000004 




66$: 


MOV 


012637 


000006 






MOV 



#START,srAD 

STCONT 

#REMAP,STAD 

STCONT 

*MOOEV.STAD 

/rSTKPTR.W 



;G0 TO COMMON INTERRUPT SERVICE 



.•ADDRESS OF RECEIVER LINE * 'A' 



.•ADDRESS OF RECEIVER BUFFER LINE * 'A' 



.•ADDRESS OF TRANSMITTER CSR LINE * "A" 



.•ADDRESS OF TRANSMIT BUFFER LINE * 'A' 



SOFT SU REG POINTER 
DISPLAY POINTER 
SOFTUARE DISPLAY REGISTER 
SOFTWARE SWITCH REG 



6.-(SP) 
4,-(SP) 
Jir64$.cMr<. 

#-1 .aSRPTR 
65$ 
66$ 

(SP)*,(SP)* 
*SWRE6, SRPTR 
#DISPLAY.DJSPREG 
(SP)*.a*4 
(SP)*.a#6 



;SET UP FOR NORMAL START 
.CONTINUE 

;SET FOR A REMAP START 

:SET TO MODIFY ON START 
;SET BOTTOM OF STAC" 

.-SAVE CURRENT VECTOR 

;SET UP LOC. 4 FOR NON-EXISTANT 
.MEMORY TRAP 

.REFERENCE HARDWARE SWITCH REGISTER 
;IF IT = -1. USE SOFT SW REG 
.THEN USE HARDWARE SW REG 
.•CORRECT THE STACk NO HOWE SW REG 
.•POINT TO SOFT SW RfcC 

.•POINT TO SOFT DISP hEG 
.•RESTORE VECTORS 



rZDLBCO 


Dl r-E 


ON lINE TSET 


MACY11 30A(1052 


/ 19-JUL-79 


CZDL8C.P11 


I9-JUL-79 15:06 








OCJ 






•tk******************* 


o<:d 


UUVJj 1 u 


000137 






JMP a(PC) 


Dc 1 




000000 


STAD: 




0 


Oco 




001 200 






.=1200 


OCT 


U\J 1 cUU 


000000 


RXCSR 




0 


OX) 




000000 


RXBUF 




0 


ATI 




000000 


TXCSR 




0 




nni ?rkA 


000000 


TX8UF 




0 


O J J 


UU 1 c 1 u 


000000 


RXVTR 




OPEN 


AlZ. 


51 5 
UU 1 c 1 c 


000200 


RXLVL 




PRTY4 


Ojj 


nr>i 51 L 


000000 


TXVTR 




OPEN 


OjO 


nr>i 51 A 


AAA ^AA 

000200 


TXLVL 




PRTYA 


D J' 


nni 550 


1 77560 


TKS: 




177560 






177562 


TKB: 




177562 




noi PPA 


1 7756*» 


TPS: 




1 77564 


Civ 


001 55A 
VA/ 1 ecu 


1 77566 


TPS: 




177566 


Oh I 


001 P'^O 


AAAAZ 

000060 


TKVTR 




60 




fVM 5X5 


AAA **AA 

000200 


TKLVL 




PRTY4 


C* J 


001 5"?/. 

W ' C JH 


AAAAZ / 

00006A 


TPVTR 




64 




001 5 Vi 


AAA *1AA 

000200 


TPLVL 




PRTY4 




001 5A0 


AAA AAA 

000000 


PRGNUM: 


OPEN 


AAA 


001 5A5 


AAA AAA 

000000 


PRGID 




OPEN 


OH A 


001 


AA^ ITAT 

006502 


PRGTA8: 


PRGO 


OHO 


001 


AAZ Z t J 

006616 






PRG1 


OH T 


001 ?S0 


006720 






PR62 


D JV 


001 PS? 
vV 1 c Jc 


AA^A 1 y 

007016 






PR63 


A^l 


001 ?SA 

VA/ 1 C JH 


007552 






PR64 


AS? 


001 ?SA 








PR65 


O J J 


001 ?A0 

VA/ 1 cOU 


002432 






INCPRG 


D JH 


001 ?A? 

\J\J 1 cOc 


AAT/ 7*^ 

002A 32 






INCPRG 




001 ?Ai 

W 1 COh 


AAT TA A 

003200 


EMTTA8: 


TYP 


ASA 


001 ?AA 

<A/ 1 coo 


AA7T 

003322 






TYPS 




001 ?70 

VA/ 1 C r V 


AAAAAA 

000000 






OPEN 


ASS 


001 ?7? 


AA'^ C7A 

002570 






ERR 


AS9 


001 ?7A 

VA/ 1 c ' H 


AA** / "»A 

002A70 






DTCHK 




001 ?7A 

VA/ 1 c f O 


A A *1 / / > 

002AA4 






CHLT 


AA1 


001 '^00 

VA/ 1 JVA/ 


AAT^ **A 

003120 






STRVRV 


AA7 


001 V)? 

VA/ 1 JV^c 


003150 






STXMTV 




001 vu, 

VA/ 1 J\^* 


002A56 






EHLT 


AAA 


001 XOA 

VA/ 1 JVAJ 


002332 






SAVRG 


AAS 


001 X10 

VA/ 1 J 1 V/ 


AA'^ 77*^ 

002372 






RSTRG 


AAA 


001 '51? 

VA/ 1 J I C 


002612 






ERR1 


OQ ' 


001 XI A 

VA/ F J 1 H 


002766 






TXERR 




001 '^^6 

V/V/ 1 ^ 1 w 


003010 






RXERR 




001 X?0 

V/V/ 1 JcV/ 


00354A 






DLY 


Or V 


001 X?? 
V/V/ 1 Jcc 


000000 


PAR8I T : 


OPEN 


D ' 1 


001 

V/V/ 1 JcH 


AAAAAA 

000000 


COUNT 




OPEN 


Of c 


001 X?A 

VA/ 1 JC\J 


000000 


SAVE : 




OPEN 




001 XXO 
VA/ 1 jjyj 


000000 


LINE: 




OPEN 




001 XX? 

VA/ 1 JJC 


000000 


CONFIG: 


OPEN 


675 


00133A 


A#\AAAA 

000000 


NUMBER: 


OPEN 


676 












677 


001 336 


AAAAAA 

000000 


OLDPS 




0 


678 


001 3A0 


AAAAAA 

000000 


TOPC: 




0 


679 


001342 


UwUUU 


FROMPC: 


0 


680 


001 3A4 


000000 


FTITLE: 


0 



2 

PAGE 



16 



JUMP TO SELECTED START 



SEQ 0016 



RECEIVER CSR UNDER TEST 
RECEIVER BUFFER UNDER TEST 
TRANSMITTER CSR UNDER TEST 
TRANSMITTER BUFFER UNDER TEST 
RECEIVER VECTOR 
RECEIVER PRIORITY LEVEL 
TRANSMITTER VECTOR 
TRANSMITTER PRIORITY LEVEL 
LSR CSR 
LSR BUFFER 
LSP CSR 
LSP BUFFER 

LSR INTERRUPT VECTOR 

LSR PRIORITY LEVEL 

LSP INTERRUPT VECTOR 

LSP PRIORITY LEVEL 

CONTAINS CURRENT PROGRAM* 

CONTAINS PROGRAM INDICATORS 

PRGO START ADDRESS 

PRG1 START ADDRESS 

PRG2 START ADDRESS 

:PR63 START ADDRESS 

;PR64 START ADDRESS 

;PR65 START ADDRESS 



POINTER TO TYPEOUT ROUTINE 

POINTER TO CHAINED MESSAGES ROUTINE 

POINTER TO RANDOM STALL ROUTINE 

POINTER TO ERROR ROUTINE 

POINTER TO DATA CHECK ROUTINE 
COMMON HALT 

POINTER TO ROUTINE TO SET RCVR VECTOR AND PRIORITY 

POINTER TO ROUTINE TO SET XMIT VECTOR AND PRIORITY 

POINTER TO ERROR HALT ROUTINE. 

POINTER TO SAVE REGISTERS ROUTINE 

POINTER TO RESTORE REGISTERS ROUTINE 

POINTER TO ERROR ROUTINE 

POINTER TO XMIT ERROR ROUTINE 

POINTER TO RCVR ERROR ROUTINE 

POINTER TO DELAY ROUTINE 



'ZDlBCO 


DL '^-E 


ON LINE 


TS£T 


'7Dl Bf .PM 


19- JUL -79 


15:06 




001 

\J\J 1 


000000 






001 ?50 


000000 






001 ?5? 


000000 




DO** 


001 ?54 


000000 






001 ?56 


000000 






001 V>0 


000000 






001 V»? 


000000 






001 V»4 


000000 






001 V»6 


AAAAAA 

000000 






001 370 

VV 1 J r V 


AAAAAA 

000000 




OT 1 


001 37? 

VV \ Jf C 


AAAA/'\A 

000000 






001 374 


AAAAAA 






001 376 


'jOOOOO 






U01400 


AAAAAA 

000000 




695 


00140? 


AAAAAA 

000000 




696 


001404 


AAAAAA 

000000 




697 


001406 


AAAAAA 

000000 




698 








699 


001410 


AAAAAA 

000000 




700 


00141? 


AAAAAA 

ooooot 




701 


001414 


AAAAAA 

000000 




70? 








70? 










001416 


AAAAA*^ 

000000 




705 


0014?0 


AAAAAA 

000000 




706 


0014?? 


AAAAAA 

000000 




707 


001 4?4 


AAAAAA 

000000 




708 


0014?6 


AAAAAA 

ooooou 




709 


001430 


AAAAAA 

000000 




710 








71 1 








71? 








71? 








714 


00143? 


AA C A 7 7 


AAI V/ / 

001 5hh 


71 5 


001456 


A1 'l^A^ 

01 <:^06 


AAI TAA 

001200 


716 


00144? 


AAAAAC 
000005 




717 


001A4A 


AACA*77 

00505^ 


\ ff f ft 


718 


001 A50 


Ai / 

0\c75f 


00At)r6 


719 


001456 


A1 


AAAA/ A 
OOOOAU 


720 


001464 


AAC 7T7 


AAI TJ J 
001 


721 


001470 


AAi 1 / C 

001 14!) 




722 


001472 


1 A/ AAA 

104000 




723 


001 4 7A 


AI 7^ 

01^3/^6 




724 


001 A 76 


AAC OT'y 


AAI 7/ / 

001 


725 


001 502 


AACAT7 

00503^ 


AAI tl 

001 3^6 


726 


001506 




\ f f f f f 


727 


001514 


AI OTTT 


AA"! CiL/ 

00 1 !)o*» 


728 


001522 


\J\cr5f 


AAAT/ A 
0003^0 


729 


001530 


A1 'ifr\i 
012^04 


A1 1 1 1 

01 1^16 


730 


001534 


AAC 'IT^ 


A A ^ TC/ 

0013-><» 


731 


001540 


020427 


AI 1 T1 / 

01 1 ils 


732 


001544 


AAI / 77 
0014/^^ 




733 


001546 


AACAT7 

005037 


1 7 7 7 7^ 
Iff ffO 


TV* 


001552 


AAC77/ 
005^^4 


AAAAAA 

000000 


735 


001556 






7?6 


001560 


000240 





MAfm 30A(105?) T3-JUL-79 '5:10 



E 2 

PAGF 



SCO 0017 



000004 
000006 



001354 
000004 
000006 



FNONE: 

FMAP: 

TEliPl : 

LINE NO: 

RECDAT: 

XMTDAT: 

CARMSK: 

CTRD: 

TXCSRT: 

RXCSRT: 

TEMP: 

SRT: 

INBUFP: 

BUFFP: 

CALLER: 

CALLED: 

0T8UFP: 



0 
0 
0 
0 

OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 



T8UFFP: OPEN 
MODEM: OPEN 
OPEN 



C0UNT1: OPEN 
CNT : OPEN 



CHGC1 



FILL1: 
MODE: 



OPEN 
OPEN 



TEMPST: OPEN 
TIB: OPEN 



CONTAINS ADDRESS FROM WHERE NEXT TRAN- 
SMITTED CHAR. (IN 0UT8UF) IS TO COME 

CONTAINS MODEM TYPE 0=103,4-202 
CONTAINS ADDRESS FROM UHERE NEXT TRANS- 
MITTED CHAR. (CALLER'S LINE) IS TO COME 

LOOP COUNT FOR TEST 
ITERATION COUNT 



ZERO FILL 
NUMBER OF 
TEMP WORK 
TEMPORARY 



SWITCH 
DIGITS TO 
LOCATION 
KY8D BUFFER 



TYPE 



STORAGE 



'****»*****••*«*******«»**»»•* 



REMAP: 


CLR 


F7ITLE 




START: 


MOV 


*ST»CPTR.X6 


;SET BOTTOM OF SP STACK. 




RESET 








CLR 


PSW 






MOV 


#ERTP.MACHER 






MOV 


#40,MACHER*2 






TST 


FTITLE 


.-TITLE PRINTED 




BNE 


START1 


;YES. SKIP THIS 




TYPE 






MTITLE 








INC 


FTITLE 


.-SET TITLE PRINTED FLAG 




CLR 


FNONE 


.-CLEAR NO DEVICE FLAG 




MOV 


*-1,LJNEN0 






MOV 


/TMAPNE .MACHER 


.-SET UP FOR NO DEVICE ANSWER 




MOV 


#PRTY7,MACHER^2 






MOV 


#RCSR.X4 


.-SET UP DEVICE POINTER 


MAPA: 


INC 


LJNENO 






CMP 


X4.4fR8UF 


.■LAST DEVICE 




BEO 


MAPEND 


.-Yfci) 




CLR 


PSW 






TST 


S(4) 


.-TEST DEVICE 




NOP 








NOP 







fZDLBfO OLil-E ON LINE TSET MACni IQACOSi) 
rZDLBC.PH 19-JUL-79 15:06 



777 

' ji 


(VII SA? 










on 


' jO 






noooo? 




iTiWr nit • 


ADD 


7 TO 


nni S7n 










POP^P? 


7Lf\ 


nrti ^7? 


000760 
WV' ou 








RR 
on 


f H 1 


(VII S74 


01 1477 


001 7S? 
V/V/ \ J JC 




MAPOK ' 




7L? 


VA/ 1 OVA/ 


004S77 


007606 






*/ jn 


( Hj 


(V)1M)4 
VA/ 1 OVH 


001 TS? 

VA/ 1 JJC 








TFMP1 


7LL 


VA/ 1 OVO 


01?7?3 

V/ 1 C r CJ 








MDADR 

1 l^f^l/n 




VA/ 1 O 1 V/ 


000006 

VAAA/V/O 








o 


7Lf\ 

f HO 


VA/ 1 O 1 C 


0O4S37 


007606 

vV/ JOV/O 






i<;r 


7^7 


001616 

VA/ 1 O 1 


001 354 

VV 1 J J** 










7^8 


001 6?0 

VA/ 1 \jC\J 


01?71 S 










74 Q 


0016?? 

VA/ 1 \JC C 


00000? 

vvvWc 








2 


7S0 


001 6?4 


01 1401 

V 1 1 "*V 1 








MOV 

1 fV * 


7S1 


001 6?6 

VA/ 1 V/cO 


004737 

VV*t f Jf 


004 76? 

V/V/H f Oc 






JSR 


7S? 


00167? 

VA' ' 1J-/C 


OS?737 


000001 

vvvvv f 


001 3S0 

Vv t J J\J 




D i O 


f J J 


001640 

VA I VJ^V/ 


VHC f ' ' 


000100 

VVV 1 VV 


177336 

1 r t J^\J 








001646 

VA/ 1 OHO 


0SP777 

\J JC Iff 


000100 

VVV • w 


1 77330 

1 r ' J J\f 




BIS 

wis? 


7SS 


001654 


000240 

wWC"t V 








NOP 


7S6 


001656 


012737 


000340 

VW J~ w 


■\7777h 

If II r V 




MOV 


757 


001664 


005737 

VV^ t Jf 


001210 

VV 1 C 1 w 






TST 

1 1 


758 


001670 


001406 








RFO 


759 


00i67? 

VV 1 V • c 


013701 

V 1 J ' V 1 


001354 

VV \ J J~ 






MOV 


760 


001676 


006301 








ASL 

^*JC 


761 


001700 

V V 1 ' W 


013761 


001210 

W 1 C 1 V 


01 1120 




MOV 

' IV » 


76? 


001706 


01,7777 

V^C 111 


000100 

WV 1 VV 


^77270 

1 • • C • V 


MAPOK.A- 


BJ C 


763 


001 7K 


004537 

J J 1 


003606 

VV^ WV 






JSR 


764 


001 7?0 

VV ' ' cv 


001210 

VV 1 C 1 V 








RXVTR 


765 


001 7?2 


012735 

VIC' J ^ 








MTRAP 


766 


001724 


000004 








4 


767 


001 726 

W • ' CV 

001 730 

W 1 ' JV 


104000 

1 V^ wv 










768 


012715 

VIC' 1 








ML i NF 


769 


001732 


005237 

w -^C • 


001346 

VV 1 J~\i 






INC 


770 


001736 

W 1 • ^V 


062704 

VvC • VTI 


000002 

VW WC 






ADD 


771 


001742 

Vv 1 ' 


000674 








RR 

on 


77? 


001744 

VV 1 ' ~~ 


012737 

VIC' ' 


004576 


000004 

V W VV"» 


•iAPFND ■ 


MOV 

nv w 


771> 


001752 


012737 

VIC' -JI 


000040 

V VW^ V 


000006 

WWW 




MOV 




001760 

W • ' vV 


005737 

W-» 1 JI 


001 346 

VV 1 J~\J 






TST 


775 


001 76^ 


001007 








6NE 


776 


001766 

vv 1 • vU 


104000 

1 v^vvv 








TYPE 


777 


001 770 

VV 1 r r V 


012745 

V 1 C * ~ 








MNONE 


778 


001772 


005037 

\J\J J\J J 1 


001 344 






CLR 


779 


001776 

W 1 f ' V 


000000 








HAlT 


780 


002000 

V VC V w 


000137 

WV 1 J 1 


001436 

VV 1 ^ J\J 








781 












782 


002004 

vvc 








CHGC6: 




783 


002004 

vvc 


0??7Z,7 

VC C ' J 1 


0001 76 

VVV 1 1 w 


0001 70 

WV 1 1 V 


STA«T1: 


CMP 


784 


002012 

WkV 1 b 


001015 

W 1 V 1 V 








BNE 


^85 


0020 K 

WbV 1 ~ 


004737 

1 J 1 


01046A 






JSR 


786 


002020 

WC vC V 


013701 

V 1 ^ r V 1 


001230 

W 1 c ^v 






«0V 


787 


00202A 


012721 


010712 






MOV 


788 


002030 


013721 


001232 






MOV 


789 


002034 


005777 


177162 






TST 


790 


0020A0 


0M777 


000100 


177152 




MOV 


791 










60$: 




^92 


002046 


005057 


'77776 




CLR 



F 2 
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MAPOK 
#2.X4 



SfO 0018 



MAPA 

(4), TEMPI .-SAVE DEVICE FOR TYPING 

X5,0ACNV 



XS.OACNV 



(4). XI ;GET RXCSR DEVICE ADDRESS 

X7.F0W1AD 

#QI TO. FMA.P 

*eiT6.aTXCSR 

*8JT6.aTXCSR 

#PRTy7.PSW 

RXVTR 

MAPOKA 

LINEN0.X1 

X\ 

RXVTR, VECTAB(I) ;SrORE VECTOR 

*8IT6.aTXCSR 

XS.OACNV 



FNONE 
#2.Z4 
MAPA 

*ERTP,«ACHER 
#A0./nACHER*2 
FNONE 
START! 



FfiTLE 



START 



*SWREG.SRPTR 
60$ 

PCCNTLU 

TKVTR,R1 

#TTINTS.(R1)* 

TKLVL.(RI)* 

aTK8 

#100.aTKS 



IS SOFT SWREG SELECTED 
IF NOT. BR OVER NEXl OPER 
SOFT SW REG INPUT ROUTINE 

VECTOR ADDRESS TO LOC 60 
PRIORITY TO LOC 62 
CLEAR DONE FLAG 
SET TTY INTERRUPT ON 



G 

/CnBru DlT-E ONLI^^£ t^£T MAC^M lOA(^OSd) 10-JOL-79 IS.-'O PAGE 
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793 


002052 


104000 




TYPE 




79< 


0C2054 


012762 




MSWSEL 




795 


002056 


004737 


003372 


JSft 


PC.RDOCT 


796 


002062 


012600 




MOV 


(SP) *X0 
»^ 77770. 10 


797 


002064 


042700 


1 77770 


BIC 


798 


002070 


010037 


001240 


"10V 


XO.PRGNUM 


799 


002074 


006500 




ASL 


XO 


800 


002076 


000170 


001244 


JMP 


9PRCTAB(0) 


801 








MODEV: MOV 




80^ 


002102 


012706 


001200 


*STKPTR.X6 


803 


002106 


000005 




RESET 




80A 


002110 


005037 


^7777b 


CLR 


PSU 


805 


002114 


104000 




MODEVI: TYPE 




806 


002116 


015203 




MM0D1 




807 


002120 


004737 


003372 


JSR 


PC.RDOCT 


808 


002124 


011600 




MOV 


(SP),XO 


809 


002126 


042700 


1 77740 


BIC 


#1 77740. XO 


810 


002132 


006300 




ASL 


XO 


811 


002134 


022627 


000036 


CMP 


(SP)*.*36 


812 


002140 


101403 




BLOS 


M0DEV2 


813 


002142 


104000 




TYPE 




814 


002144 


015131 




MMODX 




815 


002146 


000762 




BR 


MODEVI 


816 


002150 


104000 




M0DEV2: TYPE 




817 


002152 


015321 




MM0D2 




818 


002154 


004737 


003372 


JSR PC.RDOCT 


819 


002160 


032716 


000001 


BIT 


#8]T0.(SP) 


820 


002164 


001403 




BEO 


MODE V 5 


821 


002166 


104000 




TYPE 




822 


002170 


015153 




MMODD 




823 


002172 


000766 




BR 


M0DEV2 


82A 


002174 


012601 




M0DEV3: MOV 


(SP)*.X1 


825 


002176 


010003 




MOV 


X0.X3 


826 


002200 


062 70 3 


011216 


ADD 


#RCSR,X3 


827 


002204 


010113 




MOV 


XI, (3) 


828 


002206 


062701 


000002 


ADD 


#2. XI 


829 


002212 


010003 




MOV 


X0.X3 


830 


002214 


062703 


011314 


ADD 


#R8Uf .Z5 


831 


002220 


010113 




MOV 


j;i.(3> 


832 


002222 


062701 


000002 


ADD 


#2,»1 


833 


002226 


010003 




MOV 


X0,X3 


854 


002230 


062703 


011412 


ADO 


#TCSR,X3 


835 


002234 


010113 




MOV 


XI. (3) 


836 


002236 


062701 


000002 


ADD 


#2. XI 


837 


002242 


010003 




MOV 


X0.X3 


838 


002244 


062703 


011510 


ADD 


#T8UF,X3 


839 


002250 


010113 




MOV 


XI. (3) 


840 


002252 


104000 




TYPE 


841 


002254 


015367 




MM0D3 




842 


002256 


004737 


003372 


JSR 


PC.RDOCT 


845 


002262 


022627 


\7f777 


CMP 


($P}*,»)y7777 


844 


002266 


001712 




BEO 


MODEVI 


845 


002270 


005037 
00013" 


001344 


ClR 


FTITLE 


846 


002274 


001436 


JMP 


START 


847 












848 








;EMT TRAP INTERPRETER 



19 



SEO 0019 



.-GET INPUT 

;(SR) TO RO 
;LIMIT (SR) TO BITS 2-0 
.•SAVE PROGRAM » 
;R0X2 

.•GO TO SELECTED PROGRAM, 



;GET INPUT 



; BRANCH IF > 36 



.-GET INPUT 



;SAVE DEV ADR 



.•UPDATE DEV ADR 



; UPDATE DEV ADR 



.-UPDATE DEV ADR 



;GET INRJT 



'ZDlBfC DlT-E on lINE TSET 
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SEQ oo;>G 



8^9 002300 

850 002302 

851 002306 

852 002312 

853 0023V. 

854 002320 

855 002524 

856 002330 
857 

858 

859 002332 

860 002336 

861 002342 

862 002344 

863 002346 

864 002350 

865 002352 

866 002354 

867 002360 

868 002364 

869 002366 

870 002570 
871 

872 

875 002572 

874 002^76 

875 002402 

876 002404 

877 002406 

878 002410 

879 002412 

880 002414 

881 002420 

882 002424 

883 002426 

884 002430 

885 002432 

886 002434 

887 002456 

888 002440 
889 

890 002444 

891 002446 

892 002452 

893 002454 
894 

895 

896 002456 

897 002462 

898 002464 

899 002466 
900 

901 

902 002470 

903 002476 

904 002504 



01 ''646 
162716 
017616 
006116 
042716 
062716 
017616 
000136 



012637 
012637 
010446 
010346 
010246 
010146 
010046 
013746 
013746 
000002 
000000 
000000 



012637 
012657 
012600 
012601 
012602 
012605 
012604 
013746 
013746 
000002 
000000 
000000 
104000 
014121 
000000 
000157 

011600 
162700 
000000 
000002 



005777 
100001 
000000 
000002 



045737 
123757 
001450 



000002 
000000 

177001 
001264 
000000 



002566 
002570 



002570 
002366 



002426 
002430 



002450 
002426 



001456 
000002 

175506 



001 562 
001556 



EMTINT; 



EMTA: 



MOV 

sue 

MOV 

ROL 
BIC 
ADD 
MOV 
JMP 



aX6.-(6J 
#2.aX6 
9(6). aX6 

ax6 

#177001.8X6 
#EMTTA8,aX6 
9(6). aX6 
S(6)* 



.•SAVE REGS 0 TO 4 SUBRCKJTINE. 



SAVRG: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RT] 

SVRPC : OPEN 
SVRPSW: OPEN 

•RESTORE REGS 0 
RSTRG; MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RT] 

RSTPC: OPEN 
RSTPSW: OPEN 
INCPRG: TYPE 

AJNPRG 
HALT 
JMP 



(6) ♦.SVRPC 
(6) ♦.SVRPSW 
X4.-(6> 
X5.-(6) 
X2.-(6) 
j;i.-(6) 
%0.-(6) 
SVRPSW. -(6) 
SVRPC. -(6) 



TO 4 SLBROuriNE, 

(6)*. RSTPC 

(6) ♦.RSTPSW 

(6)*.X0 

(6;*. XI 

(6)*.X2 

(6)*.X3 

^6)*.X4 

RSTPSW.- (6) 

RSTPC.-(6) 



START 

; COMMON KALT ROUTINE 
CHLT: M0> aX6-X0 

#2,io 



M0> 
SOS 
HALT 
RTI 



;GET SAVED PC. 
.•DECREMENT PC BV 2. 

;EMT ARG X 2. 
.•REMOVE 7 MSB. 
.•FORM EMT RTN ADDR. 

;G0 TO EMT ROUTINE. 



.•SAVE PC AND PSW. 

.-SAVE REGS 0 - 4 
;IN STACK. 



.•RESTORE PC AND PSW. 
.•EXIT. 

'.•SAVE PC AND PSW. 

.•RESTORE REGS 0-4 
.•FROM STACK. 

.•RESTORE PC AND PSW. 
.EXIT 

;TVPE INCORRECT PROGRAM SELECTED. 

.-DEVELOP ADDRESS OF CALLER. 

.•HALT. ADDRESS Of CALL INSIRUCMON 
;IN DATA LIGHTS. 



.•rONDITIONAL ERROR HALT ROUTINE, 



EHLT: TST 
8PL 
HALT 

EHLTA: RTI 



SSRPTR 
EHLTA 



001560 
001560 



.•DATA CHECK ROUTINE. 

DTCHK: BIC CARMSK.XMTDAT 
CMP8 RECDAT.XMTDAT 
BEQ DTCHKA 



CHECK FOR HALT ON ERROR. 
BRANCH IF NO HALT DESIRED. 
HALT. 

IN DATA LIGHTS. 



CLEAR UNTRANSMITTED BPS 
COMPARE TRANSMITTED AND RECEIvK 
CHARS. BRANCH IF SAME. 



•^ZOLBCO DLll-E ON LINE TSET 
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.EO 00? 1 



905 


002506 










CNVOA 


RtCDAT,CWAS,i 






906 


002520 










CNVOA 


WMTrXAT r CO e 






907 


002552 










CNVOA 


RXCSR, CSRADD, 6 






908 


002544 


10401 3 








ERROR 1 








909 


002546 


01 ')\tb 








f CO A r\r\ 

CSRADD 








910 


002550 


f\f\/ C'77 

00453^ 


OU'»c ' s 






i C D 








911 


002554 


001 364 








CTRD 




;CHAR * 




912 


002556 


014112 








CRNUM 




;T0 DECI^WL 




91 5 


002560 


000004 








u 




. / D r T c 




D1 / 
V I H 




1 A/ AIT 

104U1 3 








C DD AD 1 










00£504 


A 1 / A/ 7 

01 404/^ 








r c Dr\ A T 








V16 




AAAAAT 

OOOOOt 






f\T r LIU A ■ 

0 1 L HKA : 


D T r 

R I J 




C V T T 




91 f 
918 


AA ^ C 7A 

002570 


A1 '57T7 


1 77777 

\ 1 1 f 1 1 


AA'37A'3 


coo. 

ERR : 




J»— 1 CDDQ 

w~l jtHKo 


.-SET UP ONE MESSAGE CALL. 




919 


OOcp^G 


A1 '5717 
0l£<'3/ 


00U£40 


00c ^04 




MOW 


"C*»0,tRRO*C 






9j0 


00^604 


AACAT7 

00503/^ 


AA'57'55 
UUdfdd 






r t D 

CLR 


C DDC 

cRRt 






9^1 


AA^Z. 1 A 


00041 3 








DD 

8R 


CDDA 

CRKA 








AA'5^ 1 "5 
00£Ol£ 


A1 1^77 

0 11 o3(' 


AA'57A'D 
00i:/^0£ 




ERR! : 


nov 




.DtVtLOr AUD L ntioAlat WVH. 




9t:3 


AAO^ 1 iL 
UOi'O lO 


A1 7777 


AAAA^A 

OOOOoO 


AA0 7A'5 

OU^' Ot: 




MAV/ 

nov 


3CDDO CDDD 


•CTADC AT CDDO 

;blUKt Al cHKH. 




9t:*» 




A1 '5777 


1 77777 

\ f f 1 f 1 


AAT7A/ 




MAV/ 
PHJV 


#—1 CODOx5 

*~ 1 ,tKHa*d 




9t:5 


(AJdOid 


A1 '5777 

Ul t:/^ S*' 


AAAAAO 
OOOOOO 


)\Jdf dd 




MAt/ 

PKJv 


#5 CDf>C 






9<'0 


AAOiL/ A 

U04:o*iU 


A7'D777 


A 5 A AAA 

OcOOOO 


1 fjjdd 


CDDA • 


D T T 


ilQTT17 aCODTO 


•TMUTOTT rOOnO DOIMT'> 
, i iMM J O J 1 t KKUK KM 1 fM 1 ; 




^cf 


UOtwO 


AA1 ATA 

001 0*:0 










coor 
CKKL 


• UDAuriJ Tn fmUTOTT OOTftjT 

;oKANLn 10 INnJeSJ 1 KKJNI. 






AAOilCA 


m 1 A7 7 
0 1 1 03^ 


AA'370A 
\J\jdf dv 






nuV 


V*0,CKKU 


>f\CWCI AD TAI 1 Tkl^ Af\nD 




Q^Q 


AA^^C/ 


1 A'3777 

lot:' 3' 


A AAA AT 

OOOOUc 


AA375A 




CI c 


it 5 CDOn 








UOcOOt: 










LNVOA 


CKKU .Art ,0 


• rnAJVyCDT TAI 1 Af\r\D TA AC' ' ' 

.LUNVCnl CALL AUl^N 10 Abwi. 




Q71 

Vj 1 




1 A/ m 1 








oAVNCu 












1 (\L AA 1 








T VDC C 

1 TrC J 




• T VDC • 








A1 71 7A 
0 1 J 1 f O 








CMA 




.CKKUH ncAUtn, 




QT/. 

93*» 




AAA AAA 
OOUOOU 








nociu 
UrcN 




• AnnT*! coono mccvatc ic akiv 
;auui l ckkuh ntojAbt •vmt. 




935 




1 77777 

\ f f f f f 








~ 1 










1 WHO 1 C 








OCTDCC 
Ko 1 nC J 








937 


002710 


4 A / A 4 A 

104010 






ERR( : 


EHALT 




;60 ERR HALT IF DESIRED. 






An '371 0 


AA771 A 
Uo3r 10 


AA5755 
UUc f cd 






ADD 


ERRE.aZ6 






V39 


(V1571 

UUc' lO 


AAAAAO 








RTI 




• CV! T 




Q/ n 
*r*tU 


\AJcf c\J 


AOAAAA 






coon - 


OPEN 








"th I 


Wcr cc 


AAAAAA 






CODE • 


OPEN 








9*»<: 




















9*»3 










. DALJC D 

; PUWt H 


FAIL SERVICE 










A1 0777 


AA'D77/ 
OOiT f 3h 


AAAA5/ 

0000 


DC ATI . 


MOV 


#PWRUP.a*24 






9*» J 


rMTD77'3 
KJMcf Jc 


AAA AAA 








HALT 








Q/ A 

9*»0 


/VA077/ 

LKJi:^3*» 


A1 5777 


AA'37'3/ 
UOiT ^ d*i 


AAAA5Z. 

0000 CH 


DLJDl ID • 


MOV 


*DFAIL.a#24 










AAAAA^ 








RESET 








9^8 


002744 


012706 


001200 






MOV 


*STKPTR.X6 






949 


002750 


104000 








TYPE 










A1 ?n77 








MPWRF 








Q«;i 




A1 77nn 

0 1 3/^ UU 


AA1 PAA 




DC C TDT 


MOV 


PRGNlfl.XO 








AAT7^A 










ASL 


XO 






QKX 

yj J 

Q^Z. 




AAA1 7 A 
UUO 1 f\) 


A/XI 5/./. 






JW> 


aPRGTAfi(O) 






V3H 

955 


002766 








txERR: 


CNVOA 


TXCSRT,ATXUAS.6 


.■CONVERT CONTENTS OF TXCSR TO 


ASCII. 


956 


003000 


012737 


013214 


003104 




MOV 


*ATXCSR,CRXTxe 






957 


003006 


000410 








BR 


CRXTX 






958 


003010 








RXERR: 


CNVOA 


RXCSRT.ARXUAS.6 


.•CONVERT CONTENTS Of RXCSR TO 


ASCII. 


959 


003022 


012737 


013235 


003104 




MOV 


#ARXCSR,CRXTX8 






960 


0030^0 


011637 


003102 




CRXTX: 


MOV 


aZ6,CRXTXA 


.•DEVELOP ADDR OF ADDTT'L ERROR MESSAGE. 



7fM or A 




ON L INt 


T C C T 


CZDLBC. 




I9-JUL-79 


15:06 


961 


003034 


017737 


000042 


962 


003042 


032777 


020000 


963 


003050 


001017 




964 


003052 


01163/ 


002720 


965 


003056 


162737 


000002 


966 


003064 






967 


003076 


104001 




968 


003100 


01 31 76 




969 


003102 


000000 




970 


003104 


000000 




971 


003106 


M7777 




972 


003110 


104010 




Q73 


003112 


062716 


000002 


974 


003116 


000002 




975 








976 








977 


003120 


017637 


000000 


978 


003126 


062716 


000002 


979 


003132 


013701 


001210 


980 


003136 


012721 


000000 


981 


003142 


013721 


001212 


982 


003146 


000002 




983 








984 








985 


003150 


01 7637 


000000 


986 


003156 


062716 


000002 


987 


003162 


013701 


001214 


988 


003166 


012721 


000000 


989 


003172 


013721 


001216 


990 


003176 


000002 




991 








992 








993 


003200 


010037 


003370 


994 


003204 


011600 




995 


003206 


062716 


000002 


996 


003212 


011000 




997 


003214 


112037 


003320 


998 


003220 


122737 


000100 


999 


003226 


001003 




1000 


003230 


013700 


003370 


luOl 


003234 


000002 




1002 


003236 


122737 


000045 


1003 


003244 


001412 




1004 


003246 


004737 


003254 


1005 


003252 


000760 




1006 


003254 


113777 


003320 


1007 


003262 


105777 


175736 


1008 


003266 


100375 




1009 


003270 


000207 




1010 


003272 


112737 


000015 


ion 


003300 


004737 


003254 


1012 


003304 


112737 


000012 


1013 


003312 


004737 


003254 


1014 


003316 


000736 




1015 


003320 


000000 




1016 









f^Cvn 30A(105^) 
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C03102 
175120 



002720 



CRXTXA: 
CRXTX8: 

CRXTXC: 



MOV 

BJT 

BNE 

MOV 

SUB 

CNVOA 

TYPES 

EMO 

OPEN 

OPEN 

-1 

EHAlT 

ADD 

RT] 



SCRXTXA. CRXTXA 

*8JT13.SSRPTR 

CRXTXC 

SZ6,ERRD 

#2.ERRD 

ERRD,APC.6 



#2,SX6 



JNhJBJT PRINT? 

BRANCH TO INHJBJT PRJNT. 

DEVELOP CALLING ADDR. 

CONVERT CALLING ADDR TO ASCII 

TYPE ERROR MESSAGE. 

ERR HEADER 

ADDT'L ERR MESSAGE 

TXCSR OR RXCSR CONSENTS. 

;G0 HALT IF DESIRED. 

;EXIT. 



003140 



.•ROUTINE TO SET RECEIVER INTERRUPT VECTOR AND PRIORITY 



STRVRV: MOV 
ADD 
MOV 

STPRA: MOV 
MOV 
RTI 



S{6).STPRA*2 
#2.aZ6 
RXVTR.X1 
#0PEN.(1)* 
RXLVL.d)* 



.•MOVE VECTOR ADDR TO S^PRA^P 
;SET UP EXIT 

SET VECTOR ADDRESS 
SET PRIORITY 
EXIT 



.•ROUTINE TO SET TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 



003170 STXMTV: MOV 
ADD 
MOV 

STPPA: MOV 
MOV 

RTI 

•SUBROUTINE TO 
TYP: MOV 
MOV 
ADD 
MOV 
TYFA: M0V8 
CMPS 
BNE 
MOV 
RTI 
CMP8 
BEQ 
JSR 
BR 
MOVB 
TSTB 
BPL 
RTS 

TYPF: MOVB 
JSR 
MOVB 
JSR 
BR 

TYPDAT; OPEN 
.•SUBROUTINE TO 



a(6),STPPA*2 
#2,aZ6 
TXVTR.X1 
#0PEN,(1)* 
TXLVL.d)* 



.-MOVE VECTOR ADDR TO STPPA* 2 
;SET UP EXIT 

SET VECTOR ADDRESS. 
SET PRIORITY 
EXIT. 



003320 



003320 TYPC 



175744 TYPD 



003320 
003320 



OUTPUT ASCII 
10 .SAVRO 
aZ6,X0 
#2,aX6 

axo,xo 

(0)*.TVPDAT 
#100. TYPDAT 
TYPC 

SAVRO, XO 

#45. TYPDAT 
TVPf 
X7,TYPD 
TYPA 

TYPDAT, aTPB 

aTPS 

.-4 

X7 

#15, TYPDAT 
X7,TYPD 
#12, TYPDAT 
%7.1iP[> 
TYPA 



MESSAGE ON TELETYPE PRINTER. 
* SAVE RO 

GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 
SET UP EXIT. 

ADDRESS OF MESSAGE TO RO. 
GET CHARACTER 
CHECK FOR'VXHARACTER 
BRANCH IF NOT'V. 

'RESTORE RO 
TERMINATOR CHAR. DONE. ExJT. 
CHECK FOR'T'. 
BRANCH IF'T' 
TYPE CHAR IN TYPDAT 

.-OUTPUT CHARACTER TO PRINTER 
.•WAIT FOR DONE FLAG. 



EXIT 

MOVE CARRIAGE RETURN CODE 
GO TYPE CHAR. 
MOVE LF CODE TO TYPDAT. 
GO TYPE CHAR. 



TO TYPDAT 



OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 



CZDLBtO DLII-E ON LINE TSET 
CZDLBC.P11 19-JUL-79 15:06 



MACY11 30A(105?) 19-JL 



1017 


003322 


010037 


003370 




T YPS : 


MOV 


1018 


003326 


011600 






TYPSAA: 


MOV 


1019 


003330 


062716 


000002 






ADD 


1020 


003334 


011037 


003364 






MOV 


1021 


003340 


022737 


-[77777 


003364 




CMP 


1022 


003346 


001003 








BNE 


1023 


003350 


013700 


003370 






MOV 


102A 


003354 


000002 








RT] 


1025 


003356 


013700 


003370 




TYPSA: 


MOV 


1026 


003362 


104000 








TYPE 


1027 


003364 


000000 






TYPS8: 


OPEN 


1028 


003366 


000757 








BR 


1029 


003370 


000000 






SAVRO: 


OPEN 


1050 










* 




1031 










.•SUBROUTINE TO 


1032 


003372 


011646 






RDOCT: 


MOV 


1033 


003374 


010046 








MOV 


1034 


003376 


010146 








MOV 


1035 


003400 


005001 






INDAT: 


CLR 


1036 


003402 


005037 


001324 






CLR 


1037 


003406 


105777 


1 75606 




RDDAT : 


TSTR 


1038 


003412 


100375 








BPL 


1039 


003414 


117746 


175602 






MOVB 


1040 


003420 


042716 


000200 






BiC 


1041 


003424 


105777 


17'5574 




ECDAT: 


TSTB 


1042 


003430 


100375 








BPL 


'043 


003432 


111677 


175570 






MOVB 


1044 


003436 


122716 


000015 






CMP8 


1045 


003442 


001432 








BEQ 


1046 


00344*. 


122716 


0001 77 






CMP8 


1047 


003450 


001423 








BEO 


1048 


003452 


122716 


000060 






CMP8 


1049 


003456 


003020 








B6T 


1050 


003460 


122716 


000067 






CMPB 


1051 


003464 


002415 








BLT 


1052 


003466 


005237 


001324 






INC 


1053 


003472 


022737 


000067 


001 324 




CMP 


1054 


003500 


003407 








BLE 


105S 


003502 


006301 








ASL 


105f-. 


003504 


006301 








ASL 


105/ 


003506 


006301 








ASL 


1C58 


003510 


162716 


000060 






SUB 


1059 


003514 


062601 








ADD 


1060 


003516 


000733 








BR 


1061 


003520 


104000 






RREAP: 


TYPE 


1062 


003522 


014001 








DTERR 


1063 


003524 


005726 








TST 


1064 


003526 


000724 








BR 


1065 


003530 


010166 


000010 




RETRN: 


MOV 


1066 


003534 


005726 








TST 


1067 


003536 


012601 








MOV 


1068 


003540 


012600 








MOV 


1069 


003542 


000207 








RTS 


1070 










* 




1071 










.•SUBROUTINE TO 


1072 


00354^ 


011637 


003604 




DLY: 


MOV 



K 2 
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SEO 0021 



XO. SAVRO 
aX6,Z0 

axo.TYPsa 

*-1,TYPS8 
TYPSA 
SAVRO. 3!0 

SAVRO. 3!0 



^YPSAA 



GET ADDRESS THAT CONTAINS MESSAGE ADDkf 
UPDATE TO NEXT MESSAGE ADDRESS 
ADDRESS OF MESSAGE TO TYPS8 
CHECK FOR TERMINATOR 
BRANCH IF NOT TERMINATOR. 

.•RESTORE RO 
.•TERMINATOR, EXIT 

CALL ON TYP SUB TO TYPE MESSAGE 
ADDRESS OF MESSAGE GOES HERE 
GO PROCESS NEXT MESSAGE 



READ OCTAL DATA 
(SP).-(SP) 
XO.-(SP) 
XI, -(SP) 
XI 

COUNT 

iTKS 

RDDAT 

aTK8,-(SP) 

#8IT7.(SP) 

aTPS 

ECDAT 

(SP;.aTP8 
*i5,(sp; 

RETRN 

^^^77ASP) 

RREAD 

*60. (SP) 

RREAD 

*67,(SP) 

RREAD 

COlfJT 

#67. COUNT 

RREAD 

XI 

XI 

XI 

*60. (SP) 
(SP)+.X1 
RDDAT 



(SP) + 

INDAT 

XI.IO(SP) 

<SP) + 

(SP)+.X1 

<SP)+.XO 

PC 



FROM THE TELETYPE PRINTER 
;MAKE ROOM FOR DATA U«3RD 
SAVE RO 
'SAVE Rl 

CLEAR DATA WORD 
;SET NO. OF DIGITS - 0 
TEST TTY READ STATUS 
;WAIT 

;PUSH DIGIT ON STACK 



TEST TTY PRINT STATUS 
WAIT 

ECHO CHARACTER 

IS IT A TERMINATOR? 

BR IF YES 

IS IT A RUBOUr? 

BR IF YES 

IS IT AN OCTAL DIGIT'' 
BR IF NO 
TEST AGAIN 
BR I F NO 

INC NO. OF DIGITS 
MORE TKAN SIX DIGITS? 
8R IF YES 

CLEAR LOWEST THREE BITS 
OF DATA WORD 

CONVERT TO BINARY 

ADD DIGIT TO DATA WORD 

GET NEXT DIGIT 

TELL USER ABOUT ILLEGAL CHARACTER 

GET RID OF ILLEGAL CHARACTER 

START SUBROUTINE AGAIN 

STORE DATA WORD ON STACK 

INC STACK POINTER 

RESTORE Rl 

RESTORE RO 

RETURN 



DELAY A SPECIFIED NLWBER OF MILLISECONDS 
aX6,DLCNT .-GET DELAY COUNT ADDRESS. 



CZDlBCO DLll-E ON LI« TSET 
CZ0LBC.P11 19-JUL-79 15:06 



1073 


003550 


062716 


000002 


1074 


003554 


01 7746 


000024 


1075 


003560 


001407 




1076 


00356? 


012746 


000226 


1077 


003566 


005316 




1078 


003570 


001376 




1079 


003572 


005726 




1080 


003574 


005316 




1081 


003576 


001371 




1082 


003600 


005726 




1083 


003602 


000002 




108A 


003604 


000000 




1085 








1086 








1087 


003606 


104011 




1088 


003610 


013500 




1089 


003612 


012501 




1090 


003614 


012502 




1091 


003616 


060201 




1092 


003620 


010003 




1093 


003622 


042703 


177770 


1094 


003626 


062703 


000060 


1095 


003632 


110341 




1096 


003634 


042700 


000007 


1097 


003640 


006000 




1098 


003642 


006000 




1099 


003644 


006000 




1100 


003646 


005302 




1101 


003650 


001363 




1102 


003652 


104012 




1103 


003654 


000205 




1104 








1105 








1106 








1107 
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^ 

SEO 0024 



ADD #2.aX6 ;SET UP EXIT ADDRESS 

MOV aDLCNT.-(6) .DELAY COUNT TO STACK 

BEQ DLYC 

DLYA: MOV *226.-(6) ;1 MSEC COUNT TO STACK 

DLY8: DEC 3X6 .-DECREMENT 1 MSEC COUNT 

BNE DLYB .-BRANCH IF NOT 0. 

POPSP .-ZERO. UNCOVER MSECS. COUNT. 

DEC aX6 .-DECREMENT IT 

BNE DLYA ;8R IF NOT DONE DCLAYING 

DLYC: POPSP ;DONE 

RTI .-EXIT. 

DLCNT: OPEN .-CONTAINS MILLISECONDS COUNT ADDRESS. 

•OCTAL TO ASCII CONVERT ROUTINE 

OACNV: SAVPPG ;SAVE REGS. 

MOV a(5) + .J!0 .-GET OCTAL VALUE. 

MOV (5) + .J:1 ;GET DESTINATION ADDR. 

MOV (5) + .X2 .-GET CONVERT COUNT. 

ADD X2.X1 .-DEVELOP ADDR TO STORE 1ST CHAR. 

OACNVA: MOV XO.XI 

BIC t^^/7770.Xl .-ISOLATE LEAST SIGNIFICANT DIGIT. 

ADD #60. X3 .-CONVERT DIGIT TO ASCII. 

M0V8 X3.-(1) .-STORE ASCII CHARACTER- 

8IC »7.X0 

ROR ZO 

ROR ZO 

ROR XO 

DEC X2 .DONE ALL DIGITS? 

BNE OACNVA ."BRANCH IF NOT OONE. 

RSTREG .RESTORE REGS. 

RTS X5 .-DONE. EXIT. 

.-SUBROUTINE TO GENERATE PARITY ON DATA FOR 5.6.7.8 LEVEi. CODE. 

^PARITY BIT IS THE MSB OF THE CHARACTER »ARITY CAN BE EITHER 
.-EVEN OR ODD 

.•GENERATES OOD/EVEN PARITY. 



CZDI 
CZDI 



BCO DL11-E ON LINE TSET 
BC.P11 19-JUL-79 15:06 



08 

09 003656 

10 00366A 

11 003666 

12 003674 

1 3 003676 
U 003704 

15 003706 

16 003710 

17 003716 

18 003724 

19 003730 

20 003732 

21 003740 

22 003746 

23 003752 

24 003754 

25 003762 

26 003770 

27 003774 

28 003776 

29 004004 

30 004012 

31 004016 

32 004020 

33 004024 

34 004026 

35 004030 

36 004034 

37 004036 

38 004044 

39 004046 

40 004054 

41 004060 

42 004062 

43 004070 
44 

45 

46 004072 

47 004074 

48 004076 

49 004102 

50 004104 

51 004110 

52 004112 

53 004114 

54 004120 

55 004124 

56 004130 

57 004134 

58 004136 

59 004142 

60 004144 

61 004146 

62 004152 

63 004154 



032737 
001411 
032737 
001427 
032737 
001412 
000433 
012737 
012737 
042701 
000433 
012737 
012737 
042701 
000422 
012737 
012737 
042701 
000411 
012737 
012737 
042701 
000400 
010137 
006001 
103415 
005337 
001373 
032737 
001403 
063737 
013701 
000207 
063737 
000757 



104000 
015024 
004737 
012601 
042701 
006201 
006201 
010137 
012703 
012704 
016102 
010223 
062702 
005304 
001373 
016101 
010123 
022121 



000200 
000100 
000040 



000200 
000007 
1 77600 

000040 
000005 
177740 

000100 
000006 
177700 

000020 
000004 
1 77760 

001326 



001324 

000040 

001322 
001326 



MACYll 30A(1052) 10-JUL-79 



001362 
001 362 
001362 



001322 
001324 



001322 
001324 



001322 
001324 



001322 
001324 
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001374 
001326 



001322 001326 



003372 
177407 

001372 
001200 
000004 
011216 

000002 
011120 



GENPAR : 


BI T 


*BIT7,CARMSK 






EIGHT 




BIT 


4r6IT6,CARMSK 




BEO 


SEVEN 




BIT 


*BIT5,CARMSK 






SIX 




BP 


FIVE 


EIGHT: 


nov 


*8IT7,PARBIT 




MOV 


#7^ COUNT 




BIC 


#1^7600. XI 




BR 


DOIT 


SIX: 


NOV 


#8IT5.PARBIT 




MOV 


#5-C0UNT 




BIC 


#177740. XI 




BR 


DOIT 


SEVEN: 


MOV 


*8IT6.PAR8IT 




MOV 


#6, COUNT 




BIC 


#1^7700. XI 




BR 


DOIT 


FIVE: 


MOV 


«BiT4.PAR8IT 




MOV 


#4, COUNT 




BIC 


#177760. XI 




BR 


DOIT 


DOIT: 


MOV 


XI. SAVE 


AGAIN: 


ROR 


XI 




BCS 


ADDl 


RTN: 


DEC 


COUNT 




BNE 


AGAIN 




BIT 


#8IT5.S«T 




BEO 


DONE 




ADD 


PAR8IT.SAVE 


DONE: 


MOV 


SAVE. XI 




RTS 


7 


ADDl: 


ADD 


PAWBJT.SAVE 




BR 


RTN 



25 



TEST LS8 CHAH LENGTH 
CHAR IS 8 

TEST MSB CHAH LENGTH 
CHAR LENGTH IS 7 



PLACE PARITY BIT IN PROPER POSITION 

SET UP ROTATE CDUNTER=7 

MASK OFF UNUSED BITS 

GO AND GENERATE PARITY FOR 8 

PLACE PARITY BIT IN PROPER POSITION 

SET UP ROTATE C0UNTER=5 

MASK OFF UNUSED BITS 

GO AND GENERATE PARITY FOR 

PLACE PARITY BIT IN PROPER POSITION 

SET UP ROTATE C0UNrER=6 

MASK OFF UNUSED BITS 

GO AND GENERATE PARITY FOR 7 

PLACE PARITY BIT IN PROPER POSITION 

SET UP ROTATE COUNTER-4 

MASK OFF UWSED BITS 

GO AND GENERATE PARITY FOR 

SAVE DATA 

ROTATE DATA 

IF CARRY SET ADD IN PARSIT 

DECREMENT COWTER 

NOT DONE DO IT AGAIN 

DONE EVEN OR ODD PARITY? 

IF EVEN FINISHED 

IF ODD ADD IN ANOTHER 1 

PLACE DATA ♦ PARITY BACK IN R1 

AND EXIT 

ADD PARBIT TO DATA 
RETURN TO COUNTER 



SEO 00? V 



.•SUBROUTINE TO 
LINSEL: TYPE 



LDLINE 




JSR 


PC.RDOCT 


MOV 


(SP)*.X1 


BIC 


#177407. XI 


ASR 


XI 


ASR 


XI 


MOV 


XI. TEMP 


MOV 


«RXCSR.X3 


MOV 


#4.X4 


MOV 


RCSR(1).X2 


LINSA; MOV 


X2,(3)* 


ADD 


#2.X2 


DEC 


X4 


BNE 


LINSA 


MOV 


VECTAe(l),X1 


MOV 


XI. (3)* 


CMP 


(1)+.(1)* 



SELECT LINE AND LOAD VECTOR ASSIGTflENT 



;GET INPUT 

.-LOAD R1 
.■MASK OFF ALL BUT LINE BITS 



SAVE LINE # 

LOAD ADDRESS OF REGISTERS 
SET UP COUNTER 



,GET LINE VECTOR ADDRESS 

LOAD INTO PROG. RXVTR 

ADD +4 TO RXVTR TO = TXVTR 



CZDLBCO DLll-E ON LINE TSET 
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SEO 0026 



1 ID*t 


UUH 1 jO 


nftS7?'? 

\J\Jjl C J 






1 \Oj 


(W. 1 /LO 

UUs 1 ou 


mm 1 






1 lOO 


rw.1 A? 


n??7'^7 

\JCCf Jf 




001 ?40 


1 1 A7 


fW.1 70 








1 1 DO 


(W.1 7P 














001 ^7? 




1 1 7n 










1 1 71 










1 1 7P 










117^ 


on^?iA 


ono?ns 






117^ 










1 1 7«i 










1 1 7A 




105037 


001 334 




1 1 77 














01?S37 


001 364 




1 1 7Q 




1 1 ^7pn 


001 334 








1 VJC J' 


001334 

VA/ 1 J J"* 




1 181 


00&?4? 


005337 


001364 




118? 


or^?^A 

VA/MCMO 


001371 






118^ 




000?05 
















1 18S 










118^ 


f)04?5? 


10401 1 






1 187 




01?501 






1 188 


004256 


012502 






1 189 


004260 


012503 






1 190 


004262 


^^?^2? 






1 191 

117 1 


004264 


005303 






119? 


004266 


001375 

W 1 Jr V 






119^? 

1 1 7 J 


004270 


10401? 






1 19A 


004272 


000P05 






1 19S 










1196 

r r 7U 










1 197 

1 1 7 r 


004274 


10401 1 






1 198 

1 1 70 


004276 


012700 


004452 




1199 

1 1 77 


004 3CP 

JVC 


013501 






1?00 


004 '^04 


012537 

VIC 


004362 

W^.^WC 




1?01 


004^10 


012537 

vie J^f 


004364 

W"*-A*^ 




1?0? 


004314 


01 2702 

V 1 C f vc 


004440 




1?0^ 


004 3?0 


012737 

V 1 C ' J* 


000005 


004432 


1?04 


004 i26 


012237 

V 1 CC J ' 


004436 




1?05 


004332 


004737 


004372 




1?06 


004336 


005337 


004432 




1207 


004342 


001371 






1208 


004344 


163700 


004364 

W^ 




1209 

1 C V7 


004350 


010037 

V I WJ > 


004360 




1210 


004354 


004537 


004252 

^c 




1211 


004360 


000000 

www 






121? 


00436? 

JVC 


000000 

www 






1213 


004364 


000000 






12U 


004366 


104012 






1215 


004370 


000205 






;216 


004372 


005037 


004434 




1217 


004376 


163701 


004436 




1218 


004402 


103403 






1219 


004404 


005237 


004434 





TST 

MOV 

CMP 

BNE 

RTS 

ASR 

CNVOA 

TYPE 

ALINEX 

RTS 



(3) + 
XI. (3) 
#5.PRGNUM 
.♦4 

5 

TEMP 

TEMP,TLINEX.2 



POINT TO PROG TXVTR 
LOAD INTO PROG TXVTR 
RUNNING PROGRAM # 5 

.•RETURN TO PROG 5 
.•POSITION 

;TfPE LINE # THAT 
;WAS CALLED 



.•SUBROUTINE TO LOAD BINARY COUNT PATTERN INTO OUTPUT BUFFER 



INFIL; 
FILL: 

FILLA: 



CLR8 
MOV 
MOV 
M0V8 
INCB 
DEC 
BNE 
RTS 



NUMBER 
(5)*.X0 
(5)*.CTRD 
Nl^ER.(O)* 
NlfOER 
CTRD 
FILLA 
5 



INITIALIZE BINARY COUNT 
GET ADDRESS 
GET COWT 

LOAD ADDRESS WITH BINARY COUNT 
INC. BINARY COUNT 
DEC. COUNT 

.•EXIT 



.•SUBROUTINE TO MOVE A VARIABLE NLWBER OF BYTES. 



BMOVE: SAVREG 
MOV 
MOV 
MOV 

BMOVA: MOVB 
DEC 
BNE 

RSTRE6 
RTS 



(5)*. XI 
(5)*.X2 
(5)*.X3 
(1)-^.(2) + 
XI 

BMOVA 
X5 



SAVE REGS. 
GErTROM"ADDRESS 
GET'TO"ADDRESS 
GET COIWT 
MOVE BYTE 
DECREMENT COIWT 
BRANCH IF NOT DONE. 
RESTORE REGS. 
DONE EXIT 



.BINARY TO DECIMAL ASCII CONVERT SUBROUTINE. 



SAVREG 




•SAVE REGS. 


MOV 


#DECVAL,XO 


■SET UP ADDR TO STORE DECIMAL ASCII IN 


MOV 


a{5)*.xi 


■BINARY VALUE TO Rl . 


MOV 


(5)*,80CNVC 


■DESTINATION ADDR TO BDCNVC. 


MOV 


(5)*,8DCNVD 


■COIMT TO BDCNVD. 


MOV 


#ADTEftf>,Z2 


•ADDR OF TEN POWER STRING TO R2. 


MOV 


#5,CNVCTR 
(2)*,TENPyR 


•SET UP FOR 5 POWER CONVERSIONS. 


MOV 


•MOVE POWER OF TFN VALUE TO TENPWR. 


JSR 


X7.SUBTEN 


-PERFORM CONVERSION 


DEC 


CNVCTR 


•DONE 5 CONVERSIONS? 


BNE 


BDCNVA 


•BRANCH IF NOT YET 5. 


SUB 


BDCNVD^ZO 


•SET UP ADDR TO MOVE DECIMAL 


nov 


XO.SOCNVB 


;DATA FROM. 


JSR 


X5, BMOVE 


;nOVE DECIMAL DATA TO DESTINATION. 


OPEN 


•SRC ADDR. 


OPEN 




•DEST ADDR. 


OPEN 




•COUNT. 


RSTREG 




•RESTORE REGS. 


RTS 


X5 


•YES, EXIT. 


CLR 


DIGIT 


•CLEAR DIGIT 


SUB 


TENPWR.Xl 


; SUBTRACT TEN POWER FROM BINARY VALUE. 


BCS 


SUBTNB 


•BRANCH IF UNSUCCESSFUL SUBTRACTION. 


INC 


DIGIT 
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1220 


004410 


000772 








BR 


SUBTNA 






1221 


004412 


063701 


004436 




SUBTNB: 


ADD 


ItNPWR.Zl 


.RESTORE 


SUBTRACTED ^ALUE. 


1222 


004416 


062737 


000060 


004434 




ADD 


AfiLA rN T ^ f T 

#6U,DJGJ 1 


.-CONVERT 


(DIGIT) TO ASCII 


1223 


004424 


1 1 3720 


f\f\i y 7/ 






MOvB 


DJ uJ 1 . lU/ ♦ 


.-MOVE ASCII CHAR TO DECVAL FIELD. 




004430 


/%/\y^ 

00020' 








A T C 


*7 

*/ 


.•EXIT. 




■1 T^C 

i22*> 


004432 


000000 






CNvC TR : 


UrtN 








1226 


004454 


000000 






ft T T T . 

DIGI 1 : 


ADC kl 








^227 


004436 


cooooo 






TENPWR : 


OPEN 








'228 


004440 


023420 






ADTcNP: 


i AAAA 

1 0000 . 








1229 


004442 


001 750 








i AAA 
1000. 








1230 


004444 


000144 
000012 








100. 








1231 


004446 








10. 








i252 


004450 


A/XAAAI 

000001 








1 








i233 


004452 


rty A 

040 


Ay A 


Ay A 
040 


DECVAL: 


.evTE 


040.040,040.040.040.040 






f\f\J / c c 


Ay A 

040 


A/ A 

OhO 


Ay A 
040 












1235 










.■SUBROUTINE TO 


SET CHARACTER LENGTH PARAMETER 


1236 


004460 


4 f\j AAA 

104000 






cc TPAR ■ 


TYPE 




.-TYPE: SELECT PARAMETERS. 


1257 


004462 


Ai T^oy 
0136^4 








SELPAR 








1238 


004464 


AAy 777 

004737 


0033/2 






JSR 


PC.RDOCT 


;GET INPUT 




0O44 /'U 


0 1<:63' 


AA1 77/ 
00 1 3/4 






MOV 


{SP)+.SRT 






12hO 


0044/4 










CNVOA 


SRT.APARM.3 






1 ^41 


r\r\l rr\A 

004!) 06 


i Ay AAA 

104000 








TYPE 








\c^c 


AAy CIA 

0045 1 (J 










PARMTS 










A/V/ CIO 

00451*? 


A1 07T7 

\J\df5f 


1 77y AA 


AA1 7il0 

UU 1 36*: 


■ Oil 1 < 


MOV 


#1 77400. CARMSK 




SET CHAPJVCTER MASK TO 8 BITS 


15// 


AAy COA 

0O45i:0 


A7'3777 
\j5dfJ' 


OOOUU*: 


(VM 77/. 

00 1 3/»» 




BIT 


#8IT1,SRT 




SEE IF SR BIT 1 IS SET. 


1 "5/ C 


AAy c o^ 

0045^6 


AAi y 1 T 
0014 13 








BEO 


STPARA 




BRANCH IF NOT SET. 


1 T/ ^ 


AAy CTA 

004530 


A1 "5777 

Ol<:/ 3/ 


1 777AA 
1 / //OO 


AA 1 7A 0 

001 36£ 




MOV 


#177700, CARMSK 




CHANGE CHAR MASK TO 6 BITS. 


\2**f 


AAy C 7^ 

0045X) 


A7'5777 

\J52f5f 


000001 


AA1 77A 
0013f *• 




BIT 


#BITO,SRT 




•SEE ;F SR BITO IS SET. 




AAy cy y 
004544 


AA1 y AT 

001403 








BEO 


PAREX 




•BRANCH IF NOT SET. 






ni 5777 


1 777Z.n 






MOV 


#177740. CARMSK 




•CHANGE CHAR MASK TO 5 BITS. 


1250 


004554 


y\/\y\ ^^'7 

000207 






PAREX: 


RTS 


X7 




;EXJT. 


1251 


004556 


052/57 


AAA/*A1 

000001 


AA1 77/ 

0013/4 


STPARA- 


BIT 


*8IT0.SRT 




:SEE IF SR BITO IS SET. 


1^5^ 


A/\y c^y 
004564 


AA1 771 

001 3 








BEO 


STPARA-2 




•BRANCH IF NOT SET. 




004566 


A1 0777 

\J\2r5f 


1 f row 


/VII 7A0 

001 362 




MOV 


#1 77600. CARMSK 




; CHANGE CHAR MASK TO 7 BITS. 




AAy C7y 
0045r4 










BR 


PAREX 






\2bj 






























•ERROR 


TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURS 




nisi C7A 
OUh j/^O 


A1 777V 

0 l3/3y 


1 7777A 


Am 77A 
UU 1 330 


ERTP: 


MOV 


PSU.OLDPS 


.SAVE OLDPS 


1 IC o 


AAy iCAy 
004604 


A1 0717 
\J\Cf5l 


AAA7/ A 
0003*fO 


1 7777A 

1 ////6 




MOV 


#PRTy7.PSW 






1 OCA 


AAy ^ 1 o 
0046 


AAX.077 

006*:3/ 


AA1 77iL 

001 336 






ASR 


OLDPS 






l<:oO 


AAy i^y L. 

004616 


AA^077 

006<:3/^ 


AA1 77yL 

001 336 






ASR 


OLDPS 






I^OI 


0046*:*: 


006^3 r 


Ar>1 77A 

00 1 336 






ASR 


OLDPS 






lifOr 


AAy 

0046<:6 


Ay 0777 


1 777/ A 

1 // /hO 


AA1 77iL 

001336 




BIC 


#177740. OLDPS 








AAy tJXl 


m 7777 

013y3y 


AA1 77A 

001336 


AA1 7/. A 
UO I3*»U 




MOV 


OLDPS. TOPC 








AAy X/. 0 


rtl 1 A77 

Ul 163/ 


Ani 7/ o 
0013*1^ 






MOV 


aX6.fR0«PC 








UUhOh6 


UOh j3f 


UU36U6 




ERTPA: 


JSR 


%5.0ACNV 








uyH6jc 


\AJ 1 3*»U 








TOPC 










/W AC/ 


0I3U63 








MTO 










UO*»656 


000006 








6 








1269 


00h660 


AAy C77 
00*»53/ 


00360c 






JSR 


X5.0ACNV 


















FROMPC 








1271 


004666 


013115 








MFROM 








1272 


004670 


000006 








6 








1273 


0(y*672 


104000 








TYPE 








1274 
'275 


00^67^ 


013016 








MTERR 








004676 


000000 








HALT 
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1276 

1277 

1273 

1279 

1280 

1281 

1282 

1283 

128A 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

^331 



004700 000137 001436 



JMP 



START 



004704 
004710 
004712 
004716 
004724 
004730 
004732 
004740 
004746 
004754 
004760 



004762 
004766 
004772 
004776 
005002 
005006 
005012 
005016 



005020 
005026 
005034 
005036 
005044 
005050 
005052 
005054 
005062 
005070 
005072 
005100 
005102 
005104 
005112 
005116 
005124 
005126 
005130 
005132 
005134 
005142 
005146 
005150 
005152 

005154 
005160 
005164 
005170 



011637 
022626 
011637 
162737 
005737 
001746 
013737 
162737 
013737 
005037 
000002 



010137 
062701 
010137 
062701 
010137 
062701 
010137 
000207 



017737 
032737 
001046 
042777 
005777 
104000 
014020 
017737 
032737 
001771 
052777 
104016 
023420 
017737 
005777 
032737 
001003 
104015 
014146 
000741 
017737 
005777 
104000 
014176 
000205 

012701 
012702 
012711 
062701 



001 340 

001 342 
000004 
001350 

001340 
000004 
001340 
001350 



001200 
000002 
001202 
000002 
001204 
000002 
001206 



001 340 



001214 
001340 
001210 



;MAPVEC - MAP VECTOR VECTOR OR REPORT FRSuK DEPENDING ON FMiAP FlAG 



;N0^ MAPPING. REPORT ERROR 
.■STORE VECTOR 



MAPVEC: MOV 


aj:6.T0Pc 


P0PSP2 




MOV 


aX6.FR0MPC 


sue 


#4.T0PC 


TST 


FMAP 


BEO 


ERTPA 


MOV 


TOPC.TXVTR 


SUB 


*4,T0PC 


MOV 


TOPC.RXVTR 


CLR 


FMAP 


RTI 





:FOR«AD - FORM DEVICE AT ADDRESS 



FORMAD: MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 
RTS 



X1.RXCSR 
*2,X1 
XI .RX8UF 
#2. XI 
X1.TXCSR 
#2, XI 
Xl.TXBUf 
X7 



174154 


001370 


•SUBROUTINE TO 


MAKE LINE COrjNECTION. 


LINCON: MOV 


aRXCSR,RXCSRT 




020000 


001370 


BIT 


#BIT13,RXCSRT 


•YES. IS CLEAR TO SEND UP 






BNE 


LINEUP 


•YES CONNECTION IS MADE. 


000146 


174134 


LINCA: BIC 


#146.aRXCSR 


•CLEAR IE BIT A^«) DTR. RQ TO SND 


174132 




TST 


aRXBUF 


•CLEAR DONE FLAG 






TYPE 




•TYPE 

••MAICE LINE CONNECTION- 






MAKCON 




174120 


001370 


LINfB: MOV 


aRXCSR.RXCSRT 




040000 


001370 


BIT 


*8IT14.RXCSRT 


DID YOU RING 






BEQ 


LINC8 


•GO WAIT FOR RING 


000006 


174100 


BIS 

DELAY 

10000. 


#6,aRXCSR 


:SET DTR. RQ TO SND 
■WAIT 10 SECONDS FOR 
■CLEAR TO SEND 


1 74070 


001370 


MOV 


aRXCSR.RXCSRT 




174064 




TST 


aRXBUF 


•CLEAR DONE 


020000 


001370 


BIT 


*8IT13.RXCSRT 


•IS CLEAR TO SEND UP? 






BNE 


LINCF 


•YES. 60 TO LINCF 






ERRRX 




■NO. PRINT ERROR MESSAGE 
■'CLEAR TO SEND NOT SET" 






LINCHM 




1 74040 




BR 


LINCA \ 


; START OVER AGAIN 


001370 


LINCF: MOV 


aRXCSR.RXCSRT 


CLEAR ALL FLAGS 


1 74034 




TST 

TYPE 

LINMAD 


aRXBUF 


■AND DONE 
■TYPE MESSAGE 
•CONNECTION IS MADE" 






LINEUP: RTS 


5 ; 


■EXIT LINE CONNECTION ROUTINE WITH 


015512 




.•SUBROUTINE TO 


OVERLAY <CRLF> IN DATA PATTERN (EVERY 72. ND CHAR) 




OVRLAY: MOV 


#0UT8UF.X1 


;6ET 0UT8UF ADDRESS 


000016 




MOV 


*14..X2 


;GET COUNTER 


105215 




OVRLYA: MOV 


/ri05^l5.(l) 


•INSERT CRiLF 


000110 




ADD 


*72..X1 


ADD OFFSET 



J 



CZDLBCO DLll-E ON LIME TSE^ 
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D 3 
15:10 PAGE 29 



SEO 0029 



1352 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1542 

1545 

1544 

1545 

1346 

1347 

1348 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1362 

1363 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1575 

1574 

1375 

1376 

1377 

1378 

1379 

1580 

1381 

1382 

1585 

1584 

1585 

1586 

'587 



005174 
005176 
005200 



005202 
005204 
005210 
005212 
005220 
005226 
005230 
005234 
005236 
005240 
005242 
005246 
005250 
005254 
005256 
005262 
005264 
005272 
005276 
005504 
005506 
005510 
005516 
005522 
005550 
005552 
005554 
005542 
005544 
005552 
005554 
005556 
005364 

005566 
005570 
005576 
005402 
005406 
005412 
005420 
005422 
005426 
005452 
005454 
005440 
005446 
005450 



005502 
001572 
000207 



000240 
010057 
006500 
016057 
017757 
100570 
105757 
001002 
104005 
000002 
020037 
001020 
005737 
001403 
005770 
000002 
117077 
005237 
022757 
001450 
000002 
117077 
005257 
022757 
002401 
000002 
022757 
001405 
022757 
001405 
000002 
052770 
000002 

000240 
012757 
012702 
012703 
010237 
022737 
001015 
112337 
112237 
104004 
005237 
022737 
001565 
000137 



001330 

011216 
175754 

001570 



001404 

00U12 

011314 

011314 
001576 
017626 



011514 
001400 
015670 



000002 
016022 



000001 
015656 
015512 
001400 
000001 



001560 
001356 

001564 
000101 

005554 



DEC X2 
BNE OVRLYA 
RTS 7 



.•DONE? 
.•EXIT 



.RECEIVER INTERRUPTS COMMON HANDLER 



001200 
001570 



174104 
001576 

174062 
001400 

001552 
001400 



000100 011412 
001364 
001332 



001 364 



RISR: NOP 
MOV 
ASL 
MOV 
MOV 
BMI 
TST8 
BNE 
ERROR 
RTI 

RISRA; CMP 
BNE 

TST 
BEQ 
TST 
RTI 

RISRAA: MOVB 
INC 

CMP 
BEQ 
RTI 

RISR8: M0V8 
INC 
CMP 
BLT 
RTI 
CMP 
BEO 
CMP 
BEO 
RTI 

RISRBB: BIS 
RTI 

.•CHECK DATA 
RISRC: NOP 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

RISRC A: MOVB 
MOVB 
DATCHK 
INC 
CMP 
BNE 
JMP 



XO.LINE 
XO 

RCSR(0).RXCSR 

aRXCSR.RXCSRT 

DCERR 

RXCSRT 

RISRA 



XO. CALLED 

RISRB 

MODEM 

RISRAA 

aR8UF(0} 



GET ADDRESS OF INTrRRUPTING DLl1-E'S RCSR 
GET CSR CONTENTS 
CHECK INT 
TEST DONE 

FALSE INTERRUPT 
EXIT 

DID CALLED LINE INTERRUPT? 

BRANCH IF CALLER INTERRUPTED 

CHECK MODEM TYPE 

BRANCH IF 105 

READ CALLED LINES DATA 



aRBUF(O) .aI^eUFP; STORE CHARACTER IN INPUT BUFFER 
INBUFP .-INCREMENT POINTER 

#INBUF*100..IM3UFP;HAVE 100. CHARACTERS BEEN RECEIVED' 



RISRC 

aR8uF(0) .aeuFFP 

BUFFP 

*8UFF+10..8UFFP 
.♦4 

#2, CONFIG 
RISRBB 

*8UFF +100. .BUFFP 
RISRC 

«BIT6,aTCSR(0) 

CONFIGURATION «1 

#1.CTRD 
*8UFF.j;2 
#0UT8UF.X3 
X2 .BUFFP 
#1, CONFIG 
RISRD 

<3)*.XMTDAT 
(2)+.RECDAT 



CTRD 

#101.CTRD 

RISRCA 

FINISH 



GO CHECK DATA IF YES 
EXIT IF NO 

STORE CHARACTER IN INTERMEDIATE DATA BUFFEP 
INCREMENT POINTER 
HAVE 10 CHARACTERS BEEN RECEIVED 

.•EXIT 

.RUNNING CONFIGURATION 2? 

HAVE 100. CHARACTERS BEEN RECEIVED- 
GO CHECK DATA IF YES. OTHERWISE 
EXIT 

START CALLERS TRANSMITTER 
EXIT 



INITIALIZE CHARACTER COUNT 
POINT R2 TO CALLERS RECEIVED DATA BUFFER 
R3 = FIRST ADDRESS OF OUTPUT DATA BUFFER 
RESTORE CALLERS RCVD DATA BUFFER PTR 
CHECK CONFIGURATION 

GET TRANSMITTED CHARACTER 
GET RECEIVED CHARACTER 
CHECK DATA 

INCREMENT CHARACTER COUNT 
HAS ALL DATA BEEN CHECKED 



005454 000240 



.•CHECK DATA CONFIGURATION *2 
RISRD: NOP 



fZDLBCO DL11-E ON LlHE. TSET MACni 30A(105i:) ^O-ji 
"ZDLBC.P11 19-JUL-79 15:06 



1 too 


005t»56 


A1 07A/ 


01 7462 






MQv 




005t»62 


A1 Ay 77 


AA1 








1 590 


AAC t d^L. 

005t»6& 


Ai 0777 

012757 


015656 


AA 1 / 1 A 

001410 




MOV 


1 59 1 


AAC / 7/ 


A1 Z7A1 

01 5701 


AA1 / A/ 

001 404 




RJoRDA: 


MOV 


1 59<; 


AAC CATV 


A1 ^1 77 

0161 5f 


A1 1 0 1 ^ 

01 1 clo 


AA1 OAA 

001 cOO 




flOV 


1 TOT 

1 5V3 


AAC C A^ 


1 1 OZZ7 


/VM Z^A 

001 560 

AA* ZC^ 

00 1 556 






MAt/O 

flOva 


1 TO/ 

1 59*» 


AAC C i 








novo 


1 5V!> 


AACC 1 L. 


1 A/ AA/ 
10*»00*» 








r\ A T r Li^ 
DA 1 v,Mlv 


1 yfo 


AAC C OA 


A1 77A1 

01 5/01 


AA1 /AO 

00140c 






nov 


1 7Q7 


AACCO/ 


A1 A1 Z7 

0 lo 1 jr 


A1 1 01 <i 

one ID 


AA1 OA A 

001 cOO 




MAI/ 

nov 


1 59B 


AACCZO 


110/ Z7 


AA1 ZCA 

001 55o 






novo 


1 zoo 




1 A/ AA/ 

IOmOOh 








f\A Tru^ 


1 / /VI 


AACC/ A 


AAC0Z7 

005<r3/ 


AA1 ZAA 
00 1 3DH 






1 Kir 


1 t»U 1 


AACC/ / 

OOj J*»*» 


A007Z7 


AAA1 A1 

000101 


AA 1 7AA 
00 1 50H 




TMD 

LHr 




AACCC 0 

00 !)!)!><: 


AA1 7CA 

00 1 550 








C>MC 




AACCCA 


AAAOAA 

OOOtnO 






r T Kl T CLt > 

r IIMl on. 


MAD 




AACCCi^ 


A1 Z7A1 

01 5/01 


AA1 AA/ 

00 1 hOs 






nov 


1 / AC 


AACCA5 
0O55OC 


AA/ C t7 
OOM55f 


AAAOOA 
00*» CC*» 






1 CD 


1 / Ai 


AACCi^ 
005 500 


A1 CC1 0 

0 1 55 1 r 








Al ITQI IF 

UU 1 our 




AACC7A 
0O55/0 


AAA1 / / 
OUv 1 








1 AA 
1 UU . 


1 / AO 


AACC70 
0055r<: 


1 A/ AAA 
1 OhOOO 








T VDC 


1 AAO 


AACC7A 


A1 / 1 1 7 
U 1 «♦ 1 1 / 








ClunOAC 

t WUr'Ao 


1 A 1 A 


OU55r O 


AC 0771 


AAA 1 An 

UOU 1 uu 


A 1 1 A 1 0 
U 1 1 *♦ 1 C 




QIC 
si o 


1 A 1 1 

mil 


AACAAA 
00500H 


AAA OA A 
OOOchU 








iMUr 


1 *» 1 c 


AACAAA 
005000 


AAATVAO 
OOOOOc 








DT t 
K 1 i 


1 A 1 7 














1 A 1 A 

mm 


AACA1 A 
0O5O 1 0 


AZ077A 

05c / f\> 


1 AAAAA 
1 UUOUU 


A1 1 71 A 
\J\ 1 J 1 «« 




D I T 
Oi 1 


1 A 1 c 


0U7O 1 0 


AA1 AAO 








DC U 


1 *• 1 o 


AACAOA 

005o<:0 


1 A/ A1 C 
1 OhO I 5 








CDDDV 


1 A1 7 
1 H 1 r 


AACA55 
0O5OCC 


A1 71 OA 
0151 CO 








LoKAUU 




AAC^-OA 

005Oc*» 


A1 0777 
0 1 cr 5r 


A1 CC1 0 
01551c 


AA1 /.AA 
OO 1 "tOO 


D T CQC - 


nuv 


l*» 1"t 


00503c 


A1 0777 


A1 7AA0 
U 1 / *»Oc 


AA1 77A 
OU 1 5/0 




nuv 


1 AOA 


AACAAA 
0050«»0 


A1 0777 


A1 CACA 
0 1 5000 


AA1 / AA 
OU 1 hUU 




MAV/ 

nuv 


1 A51 

1 1 


OU jO*»0 


A1 0777 
U ICf 5/ 


A1 CACA 
U 1 jOOO 


AA1 A1 A 
UU 1 *♦ 1 U 




I^V 


1 A55 

1 HCt 


AACACA 


A70777 
U5c ' 


A AAAAA 


AA1 7 /A 
OO 1 5 f U 




Q I T 


1 A57 


AACAA? 
OUjOOC 


AA1 AAC 










1 A5A 
1 HtH 


UV DOOM 


AAA 777 
UUh f 5r 


AAA71 0 
W05 1 C 






t CD 

Jon 


1 J 




1 U*»U 1 0 








CDDDV 
CKKnA 


1 A5A 


AACA75 
0050r c 


A1 71 OA 
0151 cO 










1 A57 


AACA7A 


AAAAAO 








DT T 
K 1 i 


1 AOa 


AACA7A 
0O5O/O 








D T CDC V • 


LIMVUA 


1 A50 


AAC71 A 
KrJji lU 


1 AAAAA 








T VDC 

1 irt 


1 A V» 


\AJjf It 


A1 LLt^X 








Al T KiC 

AL ifMc 


1A71 
1 *» J 1 


rtAC71 A 
005/ l*» 


A1 AA77 
0 I005/ 


AA1 A AA 

00 1 hOh 






MALI 

nuv 


1 A75 


AA^75n 


nAA777 


AA7775 
0053^C 






ICD 


IHJJ 


nftS7?^ 


Al 1^77 


uu 1 *• 1 c 






Mnvy 
nuv 


l«f 3*» 


nn^7VJ 

\AJjf jM 


yfc f 5f 


1 77777 


nni L 1 5 
UU H ' c 




C5Ji 






A1 0A77 
0 1 cOjf 


nni 775 

\jM I 55c 






MA If 

nuv 


l*» jO 


UUj/*»c 


AA0777 


1 7/77A 

\ f f f f H 


AA1 770 
UU 1 55c 




D T r 
Hi (. 


1 A77 
1 •» J r 


AAC7Cn 


AA1 AAO 
OU 1 I/hC 








Due 




\JvJ f JC 




nfv>7?A 






Jon 


K39 


005756 


lOAOOO 








TYPE 


K40 


005760 


0K763 








BUTTON 


K41 


005762 


10A016 








DELAY 




005764 


023420 








10000. 


%43 


00S766 


005770 


011314 






'ST 
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*IN8UF.Z4 .-POINT R4 TO CALLED LINES RECEIVER 

X4.IN8UFP ;DATA BUFFER & INIT. POINTER 

*8UFF.T8UFFP 
CALLED. XI 
RCSR(I) .RXCSR 

(3) *,XMTDAT 

(2)*.RECDAT .-COMPARE TRANSMITTED DATA WITH DATA 
.•RECEIVED BY CALLED LINE 

CALLER. XI 
RCSR(l) RXCSR 

(4) *.RECDAT .COMPARE TRANSMITTED DATA WITH DATA 

.•RECEIVED BY CALLER 

CTRD 

*101.CTRD 
RISRDA 

CALLED. XI 
5, FILL 



*8IT6,aTCSR(l) 



ROUTINE 
#8IT15.aRBUF(0) ;TEST ERROR 
RISRF 



#0UT8UF,0T8UFP 

#I^eUF,JNBUFP 

#8UFF,8UFFP 

#8UFF,T8UFFP 

#8IT14,RXCSRT 

RISREX 

7,DISC0N 



SET OUTPUT BUFFER POINTER 

SET INPUT BUFFER POINTER 

SET INTERMEDIATE BUFFER POINTER 

SET POINTER FOR CONFIG #2 TRANSMITTER 

CHECK RING INDICATOR 

BRANCH IF RING 

ERROR SET - NO RING 



LINE,TLINE.2 



XO. CALLED 
PCRDOCT 
(SP) -MODEM 
#177773. MODEM 

(SP)». CONFIG 
#177774. CONFIG 
RISRF C 
7. CONN 



aReuF(O) 



;6ET INPUT 
;6ET MODEM TYPE 
; 0=1 03, 4=202 



60 TO SERVICE FOR CONFIG 1 OR 
CONNECT LINE IF CONFIGURATION 
TYPE MESSAGE TO PRESS DATA 
BUTTON ON DATA PHONE 
WAIT FOR CARRIER 
10 SECONDS 

READ BUFFER TO CLEAR DONE 



ZDLBCO dlh-e on line tset 

rZDLBC.Pr 19-JUL-79 15:06 



HACYil 30A(105i:) 



F 3 

10-JUL-79 15:10 PAGE 31 



SEO 0031 



K45 

K46 

K47 

K48 

HA9 

%50 

1A51 

K52 

K53 

U54 

U55 

K56 

1457 

K58 

H59 

K60 

K61 

K62 

K63 

iA64 

U65 

1A66 

K67 

K68 

K69 

K70 

1A71 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

K94 

1495 

K96 

1497 

1498 

•499 



005772 
006000 
006002 

006004 
006010 
006012 
006020 
006024 
006026 
006030 
006042 
006044 
006046 
006054 



006056 
006060 
006062 
006066 
006070 
006074 
006100 
006112 
006114 
006116 
006120 
006124 
006130 
006136 
006140 
006142 
006144 
006146 
006154 
006162 
006164 
006166 
006172 
006200 
006202 
006210 
006212 
006220 
006222 
006224 
006230 
006236 



006242 
006250 
006252 
006254 



032770 
0C1004 
104003 

004737 
000002 
016037 
004737 
104000 
014176 

104000 
014225 
052770 
000002 



104000 
014633 
004737 
012601 
042701 
010137 

104000 
014730 
006301 
010137 
00<.737 
052771 
104000 
014763 
104016 
023420 
027071 
032770 
001007 
104003 
004737 
042771 
000002 
022737 
001414 
022771 
001003 
104003 
00013^ 
016137 
000137 



032771 
001003 
104003 
000137 



020000 011216 



006312 

011412 
004460 



177740 
001 330 



001402 
006326 
000002 



011314 
020000 



00631? 
000006 

000002 

010000 



006166 
011216 
006012 



020000 
006166 



001204 



000100 011412 



003372 



BIT 
BNE 
ERROR 

JSR 
RTI 

RISRF8: MOV 
JSR 
TYPE 
LINMAD 
CNVOA 
TYPE 
ACONFIG 
BIS 
RTI 



#8IT13.aRCSR(0) 
RISRF8 



7,DISC0N 

7CSR(0).TXCSR 
7,SETPAR 



C0NFJG.TC0NFIG.2 
*8IT6.aTCSR(0) 



TEST FOR CLEAR TO SEND 

ERROR.' DID NOT RECEIVE CLEAR TO SEND 
WITHIN TIME ALLOTTED (10 SEC.) 
DISCONNECT LINE 
AND EXIT 

GET CALLED LINES TXCSR ADDRESS 
LOAD USER PARAMETERS 
TYPE 'LINE CONNECTION 
MADE' 



.•HERE IF CONFIGURATION 1 OR 2 
RISRFC: TYPE 



011216 



011314 
011216 



011216 
001332 
011216 

001200 

C1i?i6 



URU 
JSR 
MOV 
SIC 
MOV 
CNVOA 
TYPE 
UR 
ASL 
MOV 
JSR 
BIS 
TYPE 
BUTTON 
DELAY 
10000. 
CMP 
BIT 
BNE 
ERROR 
RISRFD: JSR 
8IC 
RTI 

RISRFF: CMP 
BEO 
CMP 
BNE 
ERROR 
JMP 

RISRFE: MOV 
JMP 



PC.RDOCT 
(SP)*.1!1 
#177740. XI 
XI.LINE 
LINE,URA.2 



.-AND EXIT 



ASK USER WHICH LINE HE IS 
DIALING ON 
GET INPUT 

;GET LINE * 
.-MASK UNUSED BITS 



.-REPORT LINE # ON Tjy 



XI 

XI. CALLER 
7. CONN 

«eiTl,aRCSR(l) 



;SAVE CALLERS LINE * 
; CONNECT CALLED LINE 
rSET DTR ON CALLERS LINE 
TYPE MESSAGE TO PRESS DATA 
;0N DATA PHONE 

rWAIT 10 SECONDS FOR CLEAR TO SEND 
;SET AT CALLED LINE 
aR8UF(0;.SR8UF(1) .-READ BUFFERS 

*8IT13,afiCSR(0) .TEST FOR CLEAR TO SEND Ar CALLED LINE 
RISRFF 

.•error; CLEAR TO SEND NOT SET AT CALLED lINE 
7.DISC0N .DISCONNECT 
#6.afiCSR(1) .-LINE 

.AND EXJT 

#2.C0NFJG 
RISRFG 

*8IT12,aRCSR(l> .-CHECSC CARRIER AT CALLERS LINE 
RISRFE 

;ERR0R1 NO CARRIER AT CALLERS LINE 
;G0 DISCONNECT LINES 



RISRFD 

RCSRCD.RXCSR 
RISRF8 



;G0 GET PAREMETERS AND ENABLE 
.-CALLED TRANSMITTER AND EXIT 



.•HERE IF CONFIGURATION 2 

RISRFG: BIT #81 Tl 3.aRCSR( 1 ) ;T'^ST CALLERS CLEAR TO SEND 
BNE RISRFH 
ERROR 

JMP RISRFD 



.'ERROR! NO CTS AT iAlLERS LINE 
;G0 DISCONNECT LINE AND EXP 



CZDLBCO OLll-E OM lINE TSET 
CZDLBC.PIl 19-JUt.-79 15:06 



lACtn 50A(105?) 



6 3 

1Q>jUL-79 1«::10 PAGE 12 



nOO 


006260 


016037 


011216 


1501 


006266 


016137 


01 1412 


1502 


006274 


004737 


004460 


1503 








1504 


006300 


016137 


01 1216 


1505 


006306 


rtrtrt 17^ 

000137 


006012 


1506 








150^ 








1508 


006312 


042770 


000006 


1 509 


006320 


005770 


01 1216 


1510 


006324 


000207 




151 1 








1512 








1 51 3 


006326 


052770 


000006 


1 514 


006334 


AAAOA7 

000207 




1 51 5 








1516 


006336 


000^40 






006 5A0 


AA^ TAA 

006300 




1518 


006342 


i AC T'T'A 


AI 1 / 1 T 

011412 




006546 


■1 AAy AT 

100402 




1520 


r\r\^ 7C A 

006350 


i A/ AA7 

104003 




1 521 


0063!)^ 


OOOOOt: 




1 522 


AA^ 7C/ 

0063!)*» 


AAC 777 

005/^3/' 


AA 1 7 7 0 

001 332 




AA^ 7Z.A 

006360 


AA1 / OA 

001 H^rU 




ICO/ 


AA^ 7i: o 


AOAA77 

Oi:003/^ 




1 c oc 
1 3^:5 


006366 


AA1 A1 C 

00101 5 




1 c oz. 
1 3<:6 


AA^ 7 "7 A 

0063/^0 


1 1 777A 


1 77A1 / 

1 f 30 1 'f 


1 C 07 


AAZ 7'yz. 

0063a6 


AAC 07 7 

Ot 5<:3/ 


^A1 / 1 A 

JOl u V 


1 c oo 

1 528 


AA^y AO 

006h0^ 


A00777 


A1 ^AOO 

0160<:*: 


1 C OQ 


006410 


AA1 rtA7 
001005 




1 530 


AA^y i T 

0064 V 


Ay 077A 


AAA1 AA 
000100 


1 C 71 


0064^0 


AAAAAO 
OOOOOiT 






0064 1:<^ 


1 1 777A 


1 707iin 
1 fdibV 


1 V77 

1 535 


AA^y 7 A 

006430 


AAC 077 


AA1 y AZ 

001 40o 


1 C 7/ 


AA^y 7y 
006434 


AAC 777 


AAi 770 

001 33<: 


1 335 


AA^y y A 
006440 


AA1 A1 A 
001010 




1 C7iL 

1 556 


AA^y y 
00644^ 


A00777 


01 fHOc 


1 C 77 


r\r\^ y c A 

006450 


AA1 7y f\ 

001340 




1 C 70 

1 55o 


AAX y C"^ 

006452 


Ai 0777 


AI C C 1 0 

015512 


1 53v 


006460 


AAAAAO 

000002 




1 ^AO 








1 cy 1 
1 54 1 


006462 


A00777 


Ai Cy: c^ 
01 5656 


1 c / o 


A/\^y 7^1 
0064/0 


AA1 77A 
001 350 




1 C/ 7 

1 5h3 


0064 /'^ 


Ay 077A 


AAA1 A A 
0001 00 


1 c/ / 


0065U0 


000/^6^ 




1 c/ c 
1 5*»5 








1 cy ^ 








1 cy 








1 C/ fi 








1 cy Q 
1 54V 


00650*: 


AA.ooy A 
JOUr'40 




1 jjKJ 








1551 


006506 


013256 




1552 


006510 


104000 




1553 


00651? 


013712 




155A 


006514 


00^737 


00S372 


'555 


006520 


112601 





001200 
001204 



001200 
011216 

011216 



011510 
001410 
011412 
011510 

001406 
001406 

001406 
011412 



RISRFH: MOV 
MOV 
JSR 

MOV 
JMP 



RCSR'OJ.RXCSR 
TCSR(i),TXCSR 
7, St rPAR 

RCSR(1).RXCSR 
RISRf8 



;G0 GE1 PARAMETERS FOR CALLERS 
.•TRANSMITTER AND CALLED RECEIVER 



;SU8R0UTJN£ TO DISCOfWSlECT LINE RO HAS LINE » 
DISCON: BIC #6.afiCSR(0) 

TST aRCSR(O) 

RTS 7 



; SUBROUTINE TC 
CONN: BIS 
RTS 

.TRANSMITTER 



RO 



TISR: 



TISRAA: 
TISRA: 



TISRC: 



TISRBB: 



TISR8; 



NOP 
ASL 
TST8 
BMI 
ERROR 
RTI 
TST 
BEQ 
CMP 
BNE 
M0V8 
INC 
CMP 
BNE 
81 r 
RTI 
M0V8 
INC 
TST 
BNE 
CMP 
BNE 
MOV 
RTI 

CMP 
BNE 
BIC 
BR 



CONNECT LINE 
#6,aRCSR(0) 
7 

INTERRUPT COMMON HANDLER 



HAS LINE * 
.-SET DTR. 



RQ TO SND 



XO 

aTCSR(O) 
TISRA 



RO HAS LINE * 

CHECK FOR DONE 

BRANCH IF DONE 

ERROR! FALSE INTERRUPT 

EXIT 

THIS CONFIGURATIO 0? 
BRANCH IF YES 
DID CALLER INTERRUPT 



CONFIG 
TISRC 
XO. CALLER 
TISRC 

aT8UfFP.aT8UF(0) .-TRANSMIT 
TBUFfP .STEP POINTER 

*8UfFO00..T8UFFP 
.♦10 

#8IT6.aTCSR(0) 

aOT8UFP,aT8UF(0) .-TRANSMIT THE NEXT CHARACTER 

OTBUfP .-STEP POINTER TO NEXT CHAR. 

CONFIG .-WAS CONFIGURATION 0 SELECTED 

TISR8 .-BRANCH IF CONFIG #1 OR #2 

#OUT8UF*1000..0TBUFP;HAVE 1000. CHARS. BEEN SENT 
TISRAA .-EXIT IF NOT 

#0UT8UF. OTBUFP .-RESET POINTER 
.AND EXIT 

#OuraUF*100..0r8UfP;HAVE 100. CHARS. BEEN SENT? 
TISRAA .-EXIT IF NOT 

«8ir6,arcsR(0) .-disable transmitter interrupt 

TISRSe .-RESET POINTER AND EXIT 



PPGO - SINGLE CHARACTER LINE MODE TEST. 



********** 



PR60: 



NOP 

TYPE 

POTIT 

TYPE 

SELCAR 

JSR 

M0V8 



Pf .RDOCr 
(SP)*.I1 



BEGIN PRGO 
TYPE 

PROGRAM TITLE 



.-GET INPUT 

;6E^ USER SPECIFIED DATA 



/[)iBCO DLl'.-E ON LINE TSET 
ZDlBC.PII '9-JUL-79 15:06 



l1ACr*l 3OA(105^^ 10-JUL-79 



H 3 
15:10 PAGE 33 



SEO 0035 



^ L f ^ 

1S56 


006522 


010157 


015512 








MOV 


XI.OUTBur 


AND 


1 557 


006526 


004537 
015512 


004252 








JSR 


5.aM0VE 


LOAD 


1 558 


006532 










0UT8UF 




INTO 


1559 


006554 


0 5513 










OUTBUF^l ; 


OUTPUT 


1560 


006536 


001 747 










999, 




BUFFER 


561 


006540 




AAC It/ 

0051 54 








JSR 


7.0VRLAY 


OVER LAY CR.L^^ S IN DATA 


1 562 


006544 


004737 


Ai ATC T 

010352 








JSR 


7,LDPRI 


1 A A f\ AQ T AO TTW l^l/^l fAi iiC r T nn i T 

LOAD PHIOHIIY LEVEL IN VECTOR*? 


1563 


006550 


004737 


A ^ A TAy 

010304 








JSR 


7ADTVEC 


LOAD TRANSMITTER VECTORS 


1 56A 


006554 


004737 


Al A^/ A 

010240 








JSR 


7,LDVECS 


LOAD RECEIVER VECTORS 


1 C ^ C 


006560 


012737 


AAAT/ A 

000340 


1 7777X 
1 f f ' fb 






MOV 


#PRTY7.PSU 


C C T OA A r C C C AO OA T AO T T W — 7 

SET PHOCtSbUK PRIORI T 


^566 


006566 


012702 


AAA1 / A 

000140 








MOV 


#140. X2 


SET IE 


1 567 


006572 


012701 


Ai 1 ii ^ 

01 1216 








MOV 


*RCSR.X1 


. o r T r AI 

.•BIT IN 


1568 


006576 


004537 


010174 








JSR 


5,M0VIT 


ALL RECEIVERS 


1569 


006602 


104000 










TYPE 




TYPE 

'MAKE LINE CONNECTION' 


1570 


006604 


014020 










MAKCON 




1571 


006606 


005037 


177776 








CLR 


PSW ! 


SET PROCESSOR PRIORI TY=0 




006612 


000001 






PRGOA: 


WAIT 




•WAIT 


1 C 

^ C7/ 


006614 


000776 










BR 


PRGOA \ 


•HERE 


1 D7<t 
157^ 

1 C 7iL 

1 5 7o 












PRG1 


- SPECIAL 


BINARY COUNT PATTERN LINE MODE TEST. 


UOoo lo 


1 A/ AAA 






F 


>RG1 : 


TYPE 




•TYPE PROGRAM TITLE. 


1 3^0 




A1 7 too 










P1TIT 










A1 'j777 


1 AC 0 1 


A1 C C 1 0 






MOV 


#105215.0U^8UF 


•LOAD CRLF 


1580 




AA/ C 7 / 


AA/ OOA 

OOh^^O 








JSR 


5.INF]L 


;LOAD OUTPUT 


1 jO I 














0UT8UFt-2 


;WITH BINARY 






AA1 7CA 










1000. 




; COUNT PATTERN 


1 jOj 


nnA.A./ n 
UOoo*»U 


A1 0777 


AAA 1 AA 
UUO 1 00 


nni 77Z. 

00 1 J JH 






MOV 


«100,Nll«ER 






lXX)0*»o 


r\f\J 777 


AI A7C 0 

0 1 Ojj<: 








JSR 


7.LDPRJ 


;LOAD PRIORITY LEVEL IN VECTOR *? 


1 CDC 
1 CBA 




AAy 777 


rt1 A7^>/ 

01 OjOs 








JSR 


7.LDTVEC 


;LOAD TRANSMITTER VECTORS 




iW 777 


0 1 








JSR 


7.LDVECS 


;LOAD RECEIVER VECTORS 




UUOOOc 


A1 9777 


rtn/>7An 
OOvjhU 


1 7777A 

\ f f f fO 






MOV 


#PRTY7.PSW 


;SET PROCESSOR PRI0RITY=7 






A1 o7no 


AAA1 / A 

000 ihO 








MOV 


#140. X2 


;6ET IE BIT 


1 CDQ 




OlcrO 1 


A1 1 01 <L 
01 1 £ 1 O 








MOV 


#RCSR.X1 


;GET FIRST CSR ADDRESS 


1 con 




AAy C77 


Aim 7L 








JSR 


5,M0VIT 


;AND MOVE IT 






1 A/ AAA 
10*»00U 










TYPE 


;TYPE 


1 CQO 




A1 / non 










MAKCON 




.••MAKE LINE COTWECTION' 


1 CQ7 


AAiL71 A 

UUo71U 


•"\AC A77 


\ f f f 'O 








CLR 


PSW 


;SET PROCESSOR PRIORI TY=0 


1 coy 


AAZ. 71 / 


AAAAA1 
00000 1 






PRGIC: 


WAIT 




•WAIT 


1 CQC 


AAiL71 


AAA77iL 
000^ r O 










BR 


PRGIC 


;HERE 


1596 












• •••••••••• 






1 CQ7 












•PRG2- 


SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 


1 5Vo 












• •»•»••»»•» 






1599 












•THE MESSAGE "A 


QUICK BROUN FOX . 
W." 


JUMPED OVER THE LAZY DXS 














•BACK 


12345678< 




loO I 






















AAX.79A 
KAJOf C\J 


1 o*»ooo 






PRG2: 


TYPE 


.TYPE PROGRAM 


1 A/IT 


/Wi.750 


A1 7771 










P2TIT 


.•TITLE 




/W»70/. 


AA/ C77 
00*» JJf 


AA/ A70 








JSR 


5.LINSEL 




Artii.77n 
UOD' jU 


AA/ 777 
00*» r 


AA/ / i^A 

oo*»*»oo 








JSR 


7.SETPAR 


;G0 SET PARAMETERS 




\J\^f J** 


\JJC Iff 










BIS 


#8IT2.aRXCSR 


.SET REQUEST TO SEND 


1607 


006742 


004537 


005020 




PRG2A: 


JSR 


5.LINC0N 


.GO MAKE LINE CONNECTION 


1608 


006746 


012702 


014252 




PRG28: 


MOV 


#PRG2M.X2 


.GET ADDRESS OF MESSAGE 


1609 


006752 


112201 






PR62C : 


M0V8 


(2)*. XI 
X1.#'X 


;GET FIRST CHARACTER 


1610 


00G754 


020127 


0000^5 








CMP 


.TERMINATOR CHARACTER 


1611 


006760 


001772 










BEO 


PR628 


; RE SEND MESSAGE 



ZDLBCO DLll-E ON LINE TSET 
C/Dier.Pli 19-JUL-79 15:06 



MACm 30A(105ir) IQ-JUL-79 



I 3 
15:10 FA6E 34 



SFO 003^ 



1612 


006762 


032737 


000100 


001 374 


BH 


*8IT6.SRT .PARITY ENABLED 


1613 


006770 


001402 






BEQ 


.♦6 




16K 


006772 


004737 


003656 




JSR 


7.6ENPAR ; 


GENERATE PARITY 


1615 


006776 


004537 


005020 




J1>R 


5AJNC0N ; 


CHECK LINE CONNECTION 


1616 


007002 


010177 


1 72200 




MCV 


xi.arxeuF 


LOAD BUFFER 


161 7 


007006 


105777 


172172 




TSTB 


arxCSR .-AND WAIT FOR CHARACTER 


1618 


007012 


100375 






BPL 


.-4 


TO RE TRANSMITTED 


1619 


007014 


000756 






BR 


PR62C 


GET NEXT CHARACTER. 


16?0 










■ *********.< 






1621 










;PRG3-PR0GRAW 


TO RECEIVE A MESSAGE. 


16?2 










* 






1623 


007016 


104000 






PRG3: TYPE 




TYPE PROGRAM 


162A 


007020 


01 3441 










TITLE 


1625 


007022 


004537 


004072 




jSR 


5.LINSEL 




1626 


007026 


004737 


004460 




jSR 


7 


GET PARAMETERS 


1627 


007032 


/\ 4 ^f\d 

012706 


001 1 76 




PRG3A: MOV 


#STKPTR-2,*6 


REPOSITION STACK POINTER 


1628 


007036 


0S2777 


000004 


1 ''2" 34 


BIS 


*8IT2,«RXCSR 


SET REQUEST TO SEND 


1629 


007044 


004537 


005020 




JSR 


5,LINC0N 


•MAKE LINE CO^WECTION 


1650 


007050 


104006 






STRXV 




SrT RECEIVER INTERUPT 


1631 


007052 


rtrt T4 T y 

007134 






RJNT3 




TO THIS ADDRESS 


1632 


007054 


104007 






STTXV 




•SET TRANSMITTER INTERRUPT 


1633 


007056 


007346 






TINT3 




. T A TLJ ff C Af\KnC C C 

•TO THIS ADDRcSS 


163A 


007060 


005037 


007546 




CLR 


WORDS 




1 d. "YC 

1635 


00706h 


013700 


A A 1 7 y 

001234 




MOV 


TAi/TA %A 

TPvTR^XU 




1636 


007070 


012720 


A/\ '^C /\A 

007500 




MOV 


#TPiNT, (UJ 


.1 AAA TCI CODTAITCO \yC/*TAO 

LOAD TELEPHINTtR VcC TOR 


1637 


007074 


013710 


AA1 ll*^ 




MOV 


TPLvL, (U/ 


. A A tt\ AO T AA r T W 

;AND rRIOHJTV 


1638 


007100 


012701 


A1 C C 1 T 

015512 




MOV 


iTOl IC % 1 

#0UT8Ur ^4 1 


;bcT BUr ADD 


1639 


007104 




1 AAAAA 

100000 


AA7C / / 


BIS 


MA f T i C TCI 


;ScT BIT ID 


1640 


AA^4 4 ^ 

007112 


004737 


007732 




JSR 


7 TTOI C 


;ScND CRLr 


16A I 


007116 


052777 


AAA1 / A 

0001 40 


1 71ACy 

1 72054 


BIS 


* l4U.aRXCSH 


- C AlAAl C AC ^C ff kiC A r AlT C AAi m T C 

;ENABLc RcCclVcR INTERRUPTS 


1642 


007124 


005037 


1 7777b 




CLR 


PSw 




1645 


007130 


000001 






WAIT 




;D0 


1644 


007132 


000776 






BR 




. AIATLJ T At/* 

; NOTHING 


1o45 


007134 


017737 


1 TT/^ y A 

1 72040 


001 370 


RINT3: MOV 


SRXlSR.RXCSR 1 


;uET RXC5R DATA 


^ d i d 

1646 


007142 


100461 






BMI 


fcRRjA 


. AAAAI^'LJ f C * AAnA 

; BRANCH Jr cHROR 


1647 


007144 


4 AC 

105737 


AA 1 7 "^A 

001370 




TSTB 


n td r c 

RaCSR I 


; TEST 


16>48 


007150 


4 AAAZ / 

100064 






BPL 


tKKJo 




16>49 


007152 


005237 


007546 




INC 


WORDS 




1650 


007156 


017737 


1 72020 


7550 


MOV 


"^AwFv ic nwm iC T 

•RXaUr .RXBur i 


;6ET DATA 


1651 


nA^4 d y 

007164 


1 1371 1 


/XA'^C C A 

007550 




M0V8 


nwm IC T / 1 \ 

RXoUr 1,(1; 




1652 


007170 


AAC "TTT 

005737 


AA7C C A 

007550 




TST 


RX8UFT 




1653 


0071 74 


4 f\d\i c c 

100455 






BMI 


ERR3C 




1654 


007176 


105777 


1 70766 




TSTB 


aSRPTR 


;ECHO OPTION SELECTED 


1655 


007202 


4 AA/ AC 

100405 






BMI 


RINT3A 




^ d. c d 

1656 


007204 


105777 


1 71 774 




TSTB 


aTXCSR 




1657 


007210 


4 AATTfC 

100375 






BPL 


.-4 




1658 


007212 


114 1 

1 11 1 77 


171 77A 

1 71 770 




M0V8 


(1),aTX8UF 


;ECHO CHARACTER 


1659 


007216 


023727 


AA7C / ^ 

007546 


A A 1 ^ A y 

001604 


RINT5A: CMP 


WORDS. *900. 


.-END OF BUFFER ALLOWED 


^ d d f\ 

1660 


007224 


/\Ai y 1 1 

001411 






BEQ 


RINT38 


;YES EXIT 


1661 


007226 


AAC TTTT 

005737 


007544 




TST 


TFLA6 


;IS THIS THE FIRST 


lOOc 










QM I 


RINT3C 


.CHARACTER BRANCH IF YES. 


1663 


007234 


121103 






CMP8 


(1).X3 


.LAST CHARACTER RECEIVED 


1664 


007236 


001404 






BEQ 


RINT3fi 




1665 


007240 


122127 


000203 




CMP8 


(1)+,A203 


.•CONTROL C 


1666 


007244 


001401 






BEQ 


RINT38 


^667 


007P46 


000002 






RTJ 


.-EXIT 
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SEO 0035 



1668 


007250 


005037 


007546 




RINT38: 


CLR 


WORDS 




1669 


007254 


042777 


000140 


171716 




BIC 


#140.aRXCSR 


.-DISABLE RECEIVER 


1670 


007262 


012701 


015513 






MOV 


#0UT8UF*1.X1 


.•INITIALIZE BUFFER POINTER 


1671 


007266 


010102 








MOV 


XI. t? 




1672 


007270 


052777 


000100 


171706 




BIS 


*8IT6.aTXCSR 


.•ENABLE TRANSMITTER 


1673 


007276 


052777 


000100 


1 71 720 




BIS 


*8IT6,8TPS 


; ENABLE TELEPRINTER 


1674 


007304 


000002 








RTI 




.•EXIT 


1675 


007306 


104015 






ERR3A: 


ERRRX 




;TyPE ERROR MESSAGE 


1676 


007310 


014353 








LFAIL 






1677 


007312 


0^2777 


000140 


171660 




BIC 


«140,iRXCSR 


•DISABLE RECEIVER 


1678 


007320 


000644 








BR 


PRG3A 




1A79 


0073?? 


104015 






FRR3R- 


FRRRX 




• TyPE 


1680 


007324 


013135 








RINTM 




•ERROR MESSAGE 


1681 


007326 


000002 








RTI 




.'EXIT 


1682 


007330 


104015 






ERR3C : 


ERRRX 






1<S8^ 


00733? 


014371 








ROVFR 






1684 


007334 


000002 








RTI 






1685 
1686 


007336 


005037 


007544 




; 

RINT3E : 


CLR 


TFLAG 




1687 


007342 


112103 








M0V8 


(1)*.X3 




1688 


007344 


000002 








RTI 






1689 
1690 


007346 


017737 


171632 


001366 


; 

TINT3: 


MOV 


aTXC*:R.TXCSRT 


;GET TXCSR DATA 


1691 


007354 


105737 


001366 






TST8 


TXCSRT 


.•TEST 


1692 


007360 


100016 








BPL 


TINT3e 




1693 


007362 


112177 


171620 






MOVE 


C1)*.aTX8LJF 


.•TRANSMIT CHARACTER 


1694 


007366 


005237 


007546 






INC 


WORDS 




1695 


007372 


121103 








CMPB 


(1),X3 


;ALL CHARACTERS TRANSMITTED 


1696 




001431 








BEO 


TINT3C 


1697 


007Z76 


Q21727 


007546 


001604 




CMP 


WORDS ,#900. 




1698 


007404 


001425 








BEO 


TINT3C 




1699 


007406 


^2^^27 


000203 






CMPft 


(1),i(f203 


;= CONTROL C 


1700 


007412 


001422 








BEO 


TINT3C 




1701 


007414 


000002 








RTI 




.•RETURN TO MAIN PROGRAM 


1702 


007416 


01 7737 


171602 


001 372 


TINT3B: 


MOV 


iTPS.TEMP 


.•SAVE TELEPRINTER STATUS 


1703 


007424 


005077 


171574 






CLR 


aTPS 


.•DISABLE INTERRUPT 


1704 


007430 


105777 


1 71 570 






TST8 


aTPS 


.•WAIT FOR 


1705 


007434 


100375 








BPL 


.-4 


.•TELEPRINTER TO FINISH 


1706 


007436 


104014 








ERRTX 




.•TYPE 


1707 


X7440 


013156 








TINTM 




.-ERROR MESSAGE 


1708 


007442 


105777 


171556 






TSTB 


aTPS 


;UAIT FOR TELEPRINTER 


1709 


007446 


100375 








BPL 


.-4 


;T0 FINISH 


1710 


007450 


013777 


001372 


1 71 546 




MOV 


TEMP. aTPS 


.•RESTORE TELEPRINTER STATUS 


1711 


007456 


000002 








RTI 




.•EXIT 


171? 


















1713 


007460 


0^2777 


000100 


171516 


TJNT3C: 


BIC 


*BIT6.aTXCSR 


.DISABLE INTERRUPT 


1714 


007466 


012777 


000100 


171530 




BIT 


*8IT6,aTPS 


.IS TTy ACTIVE 


1715 


007474 


001421 








BEO 


PRG3EX 




1716 


007476 


000002 








RTI 






1717 










• 








1718 
1719 


007500 


U2277 


171522 




TP I NT ; 


M0V8 


(2)*.aTPB 


;TYPE CHARACTER 


1720 


007504 


121203 








CMP8 


(2>.X3 


;WAS THIS THE LAST CHAR. 


1721 


007506 


001404 








BEO 


TPINTA 


1722 


007510 


121227 


000203 






CMP8 


{2). 11201 


;= CONTROL C 


1723 


007514 


001401 








BEO 


TPINTA 
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1 7'>L 


nn7*»i^'. 


(WWV1? 










RT I 






1 7?S 

1 ' Cj 


nn7*»?n 


CU.?777 


000100 


1 7147ft 


TPINTA 




jvniT6 aTP^ 


■DI^ARIP INTPRRiPT 


I r CD 


nn7S?<'i 

VA/' ^cD 


\JjC III 


000100 


1 71450 






RI T 


irRiT6 aTxrsR 


•I^ TRAN^MITTFR AfTlVF 


\ r Ci 


007^^ 

\J\Jf J 














♦4 




1 1 CO 


nn7';v. 


nfww>? 










RTI 




•FXI T 


1 7?Q 


nfi7S4n 


nool ^7 


0070^,? 

WW 1 \J-fC 




PR63EX 


: JMP 


PRG3A 




1 7X(\ 

1 f j\J 


nC\7^LL 
\AJf jhH 


VAAAA/U 






TFLAG: 


0 






1 7T1 




VVAAA/U 






WORDS: 


0 






1 77*5 

1 ' 5*: 




000000 






RX8UFT 


: 0 






1 77X 






























PRG4- 


SPECIAL 


MESSAGE TRANSMIT 


ONI V THIS PROf^RAM TRANSMIT^; 














■ ********** 


















■MESSAGE SPIRAL PATTERN 




1 7^7 




















1 7^fl 




104000 

1 w"t WW 






PRG4 : 


TYPE 




■ T ypp PROGRAM 


1 7^9 


007554 


01 3477 










P4TIT 




•TITLE 

0 11 ILL 


1 740 


007556 


004537 

ww^ J J ' 


00407? 

WW"* w ' C 








JSR 


5.LINSEL 




1 741 


00756? 


004737 

WW** ' J ' 


004460 

Vw^" WW 








JSR 


7,SETPAR 


■GO SET PARAMETERS 




007566 


05?777 

W^C » ' ' 


000004 

wwwwwt 


1 71404 

1 f 1 w~ 






BIS 


4r8JT2,aRXCSR 


■SET REQUEST TO SEND 


1 74^ 


007574 


01?737 


0001 10 

w wV 1 1 w 


007730 

WW' ' -/w 






nov 


*"'2.,C0LMN 


*IN1T PAGE WIDTH 


1 744 


00760? 


01 2703 


000040 

Vwww**w 








P10V 


«A0,Z3 


■SET LJNE START CHAR 


1 745 


007606 

WW ' Ww 


004537 


005020 

WW-/ wC w 




PRG4A: 


JSR 


5.LINC0N 


•GO MAKE LINE CONNETTION 

0 WW innWL L A'«L vVXVvb ^ 1 ^ \Jf9 


1 746 


00761? 

WW r w 1 L 


ww^ ' J ' 


007732 

WW f ' 1^ b 








JSR 


7, TCRLF 
X3.X2 




1747 


007616 

WW f \J t \J 


01030? 

w 1 W — iwC 






PRG48: 


MOV 


•GET FIRST CHARACTER 


1 748 


0076?0 

WW r \JC w 


110?01 






PRG4C : 


M0V8 


X2.X1 


GET CHARACTER 


1 749 


0076?? 

WW • UC. c 


1?01?7 


U00136 

www 1 —/w 








CMP8 


XI .#136 


■TERMINATOR CHARACTER 


1 750 


0076?6 

WW ( wC w 


001003 

WW 1 v/w — ' 










BNE 


PRGAD 


-RE SEND MESSAGE 


1 751 


007630 

WW • W^/W 


01 2702 

W I (_ ' Wb 


000040 

WWW w~ w 








MOV 


#40, X2 




17SP 


007634 
vyv ' w,7*» 


000771 

VAA/' ' 1 










BR 


PRG4C 




1 753 


007636 

WW* 


032737 


000100 

www 1 WW 


001374 

WW I -J' ~ 


PRG4D: 




#nfT6 ^RT 


•PARITY t-NAfiLED 


1 754 


007644 

WW ' ' 


00140? 

WW ' ~wt 










BEO 


.♦6 




1 755 


007646 

WW ' w 


004737 

Ww^ ' -Jf 


003656 








JSR 


7.GENPAR 


•GENERATE PARITY 

0 Wb • f*^^ If r \ 4 ' • 


1756 


00765? 

WWf 


004537 

ww^ ^^' 


005020 

W W^Wb w 








JSR 


5.LINC0N 


•CHECK LINE COfMECTinu 


1757 


007656 

WW • W^ w 


0101 77 


171324 








MOV 




.'LOAD BUFFER 


1758 


007662 

WW' 


105777 

1 Wa^ Iff 


171316 

1 r 1 ^ 1 w 








rST8 


arxcsR 


•AND UAIT FOR CHARACTER 


1759 


007666 

WW' VA^U 


100375 

1 ww^' ^ 










BPL 


.-4 


-TO TRANSMITTED 

0 * W * «%^V«wV • • k 


■■760 


007670 

WW » wf w 


005202 

Ww^C wC 










INC 


12 


;SET FOR NEXT CHAR 


1761 


00767? 

WW' w' C 


005337 

WW-'-/-' ' 


007730 

WW ' f Jw 








DEC 


COLMN 


-All COLLfMS PRINTED*^ 


176? 


007676 

WW ' w • w 


0013*^0 

WW 1 w 










BNE 


PRG4C 


•NO GET NEXT CHAR 

0 f»W 0 Wb I • b • ITTF* 


1763 


007700 

WW' ' WW 


012737 


0001 10 

www 1 1 W 


007730 

WW ' • -/w 






MOV 


#72-, COLMN 


•RESET COLLf<M COUNTER 


1764 


007706 

WW' r wU 


004737 

W^^ f Jl 


00773? 

W > ' 'C 








JSR 


7,TCRLf 




1765 


00771? 


005203 










INC 




•UPDATE LINE START CHAR 

0 00r% lb b A ■ «b V ■ « ■ V * IrV > 

• 1 Ac^ iiu crT 


1 7^«A 

1 f^OO 




1 5n757 
1 C U JC ' 


UUU 1 jO 








CMP8 


X3.#136 


1767 


0077?0 

WW* ' Cw 


001336 

WW 1 ~JJ\J 










BNE 


PRG^ 


:N0 




0077?? 

WW' r CC 


V 1 1^ r w^ 


000040 








MOV 


#40. X3 


*YES RESET 


1769 


007726 

WW ■ r b w 


000733 

WWW • J — ' 










BR 


PRG4e 


; GET 'next CHARACTER. 


1770 


007730 

WW ' » ^w 


000000 

WW www w 






COLMN: 


0 






1771 




















1772 












■SEND 


CR LF 






1773 




















1774 


007732 




000015 


171246 


TCRLF: 


MOVE 


#15.aTX8UF 


;SEND CR.LF 


1775 


007740 


}0'>777 


171240 








TST8 


STXCSR 


1776 


007744 


100375 










BPL 


.-A 




1777 


007746 


112777 


000012 


171232 






M0V8 


#12.aTX8U' 




1778 


007754 


105777 


171224 








TST8 


aTXCSR 




1779 


007760 


100375 










BPL 


.-4 
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SfO 0037 



1780 


007762 


000207 








RTS 


X7 




1781 










*********** 






1782 










■PROGRAM 5 






1783 










• ********** 






178A 


007764 


104000 






PRG5 : 


TYPE 






1785 


007766 


013546 








P5TIT 






1786 


007770 


004537 


004072 






JSR 


5.LINSEL 




1787 


007774 


000005 








RESET 






1788 


007776 


004737 


004460 






JSR 


7,SETPAR 




1789 


010002 


052777 


000006 


1 71 1 70 




BIS 


xr6,aRxcsR 


.-SET DTR RO TO SND 


1790 


010010 


104000 






PRG5A: 


TYPE 




.-TYPE MESSAGE TO MAKE 


1791 


010012 


014020 








MAKCON 




:LINE CONNECTION 


1792 


010014 


000000 








HALT 




;WAIT FOR USER TO MAKE LINE CONNECTION 


1793 


C10016 


005777 
032777 


171160 






TST 


aRxeiJF 


.•READ BUFFER 


179A 


010022 


020000 


171150 




BIT 


*8IT13,aRXCSR 


;TEST FOR CLEAR TO SEND 


1795 


010030 


001003 








BNE 


PR658 




1796 


010032 


104000 






PRG5AA: 


TYPE 




;TYPE ERROR MESSAGE 


1797 


010034 


014146 








LINCHM 






1798 


010036 


000764 








BR 


PRG5A 


;AND TRY AGAIN 


1799 


010040 


104000 






PR658: 


TYPE 






1800 


010042 


014176 








LINMAD 






1801 


010044 


005037 


010172 






CLR 


ERRCNT 




1802 


010050 


012702 


014252 




PRG588: 


MOV 


#PRG2«,X2 


;GET BASE ADDRESS OF DATA TO BE TRANSMITTED 


1803 


010054 


112201 






PRG5C: 


MOVB 


(2)*, XI 
X1,#'X 


;GET A CHARACTER 


1804 


010056 


020127 


000045 






CMP 


.WAS IT THE TERMINATOR? 


1805 


010062 


001440 








BEO 


PRG5E 




1806 


010064 


032737 


000100 


001374 




BIT 


#eiT6,SRT 


;WAS PARITY OPTION SELECTED? 


1807 


010072 


001402 








BEO 


.♦6 


.-BRANCH IF NO PARITY DESIRED 


1808 


010074 


004737 


003656 






JSR 


7.GENPAR 
#8IT13.aRXCSR 


.GENERATE PARITY ON CHAR. IN R1 


1809 


010100 


052777 


020000 


17107? 




BIT 


.CHECK CLEAR TO SEND 


1810 


010106 


001751 








BEO 


PRG5AA 


.TYPE ERROR MSG. IF NOT SE^ 


1811 


010110 


010177 


171072 






MOV 


XI .aTXBUF 


.•TRANSMIT THE CHARACTER 


1812 


010114 


005777 


171062 






TST 


aRXBUF 


.ANY ERROR FLAGS? 


1813 


010120 


100001 








BPL 


.+4 


.BRANCH IF NO ERROR FLAGS 


1814 


010122 


104003 








ERROR 




.ERROR I SOME ERROR FLAG IS SET 


1815 


010124 


105777 


171050 






TST8 


aRXCSR 


;WAIT FOR THE RECEIVER TC RECEIVE 


1816 


010130 


100375 








BPL 


.-4 


.THE TRANSMITTED CHARACTER 


1817 


010132 


1 1 7703 


171044 






M0V8 


aRX8UF,X3 


.•SAVE IT IN R3 


1818 


010136 


043701 


001362 






BIC 


CARMSK.X1 


.•CLEAR NON- TRANSMITTED BITS 


1819 


010142 


120103 








CMP8 


XI, X5 


;WAS RECEIVED ft TRANSMITTED DATA THE SAME 


1820 


010144 


001403 








BEO 


PRG5D 




1821 


010146 


104003 








ERROR 




.-ERROR! DATA ERROR 


1822 


010150 


005237 


010172 






INC 


ERRCNT 




1823 


010154 


^ 05777 


171024 




PR65D: 


TST8 


aTXCSR 


;yAIT FOR TRANSMITTER TO FINISH 


1824 


010160 


100375 








BPL 


.-4 




1825 


010162 


000734 








8R 


PRG5C 




1826 


010164 


104000 






PRG5E: 


TYPE 






1827 


010166 


014117 








ENDPAS 






1828 


010170 


000727 








BR 


PRG5a3 




1829 


010172 


000000 






ERRCNT: 


OPEN 






1830 










;THIS ROUTINE MOVES THE CONTENTS OF R2 TO THE ADDRESS SPECIFIED 


1831 










;8Y R1 








1832 


010174 


012737 


000006 


000004 


MOVIT: 


MOV 


#6,4 


:SET UP FOR RETURN 


1833 


010202 


012737 


000002 


000006 




MOV 


#2.6 


1834 


010210 


012700 


000037 






MOV 


#31., XO 


;GET COUNTER 


1835 


010214 


010231 






MOVITA: 


MOV 


X2.a(1)+ 


.•MOVE THE DATA 
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1836 

1837 

1838 

1839 

1840 

1841 

184? 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 



010216 
010220 
010222 
010230 
010236 



010240 
010244 
010250 
010254 
010260 
010264 
010266 
010272 
010274 
010276 
010300 
010302 

010304 
010310 
010314 
010320 
010324 
010330 
010332 
010334 
010340 
010342 
010344 
010346 
010350 



010352 
010356 
010362 
010366 
010372 
010374 
010376 
010402 
010404 
010406 
010410 



005300 
001375 
012737 
012737 
000205 



012701 
012702 
012703 
012704 
032712 
001002 
010172 
060301 
005722 
C05304 
001367 
000207 

012701 
012702 
012703 
012704 
032712 
001003 
011200 
010160 
060301 
005722 
005304 
001366 
000207 



012701 
012702 
012703 
032711 
001003 
011104 
010264 
005721 
005303 
001367 
000207 



004576 
000040 



011606 
011120 
000010 
000037 
000001 

000000 



000004 
000006 



012176 
011120 
000010 
000037 
000001 



000004 



011120 
000340 
000037 
000001 



000002 



LDVEC8: 



L0VEC1 



DEC 
BNE 
MOV 
MOV 
RTS 

•SUBROUTINE 
LDVECS: MOV 
MOV 
MOV 
MOV 
BIT 
BNE 
MOV 
ADD 
TST 
DEC 
BNE 
RTS 

LDTVEC: MOV 
MOV 
MOV 
MOV 

LDTVED: BIT 
BNE 
MOV 
MOV 
ADD 
TST 
DEC 
BNE 
RTS 



LDVEC2: 



XO 

MOVITA 

*ERTP.riACHER 
*40.MACHER*2 
5 

TO LOAD ALL VECTORS 
#RISR0.%1 
*VECTA8.X2 
*10.X3 
*31.,J:4 
#8IT0,(2) 
LDVECl 
X1,a(2) 
X3.X1 
(2)* 
Z4 

LDVECB 
7 

#TJSR0.X1 

#VECTA8.X2 

#10. X3 

*31.,X4 

4«ITO,{2) 

LDVEC2 

(2),X0 

XI .4(0) 

X3.X1 

(2)* 

X4 

LDTVED 
7 



;ALL DATA MOVED? 
;N0. RETURN 



.'RETURN 



.DOES THIS VECTOR EXIST 
;N0. SKIP LOADING 
.-LOAD VECTOR 



.-DOES THIS VECTOR EXIST 
;N0, SKIP LOADING 



.•ROUTINE TO LOAD PRIORITY LEVEL 7 IN VECTOR +2 



LDPRI : MOV 
MOV 
MOV 

LDPRI A: BIT 
8NE 
MOV 
MOV 

LDPRIX: TST 
DEC 
BNE 
RTS 



•*»»»»•*•» 



#VECTA8.X1 
#340. X2 
#31 . .X3 
#81T0.(1) 
LDPRIX 
(1>.X4 
X2.2(4) 
(1)* 
X3 

LDPRI A 
7 



.•GET BASE .VECTOR 
;GET LEVEL 7 
.-LOAD COUNTER 

.DOES THIS VECTOR EXIST 
:N0 SKIP LOADING 
.-LOAD VECTOR *2 

.POINT TO NEXT VECTOR 
.•DECREMENT COUNTER 



CHECK SWITCH REGISTER ROUTINE. CHECKS FOR *G TO ALLOW CHANGING 
OF LOC 176. ROUTINE IS ENTERED AT CNTLU FOR START UP PURPOSES. 
WHEN A *6 IS GIVEN, THE PROGRAM ENTERS AT CKSWR. THE PROGRAM 
GETS CONTENTS OF SOFT. SWITCH REG.. TYPES IT OUT. AND THEN SEEKS 



CZDLBCO DL11-E ON LINE TSET MACrll 30A(105i;) 
CZDLBC.P11 19-JUL-79 15:06 



N 3 

10-JUL'79 15:10 PAGE 59 



SEO 0039 



1892 

1893 

189<. 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 



NEW DATA FROM OPERATOR. ONCE DATA IS SUPPLIED. IT INSERTS THIS 
DATA INTO THE SOFT. SWITCH REG. AND RESUMES OPERATION IN THE 
MAIN PROGRAM. INCORRECT ENTRIES (SUCH AS 8.9AETTERS) ARE DELETED 
AND THE PROCESS RESTARTED. TYPING *U ALLOWS THE PRESENT ENTRY 
TO BE DELETED AND THE PROCESS RESTARTED. 



********** 



010412 








CHGC4: 








010412 


022737 


0001 76 


000170 


CKSWR : 


CMP 


#SWREG.SRPTR 


SOFTWARE SW REG PRES? 


010420 


001133 








BNE 


OUT ; 


NO. GET OUT 


010422 


105777 


170572 






TST8 


STKS ; 


YES. IS CHARACTER READY? 


010426 


100130 








BPL 


OUT ; 


IF NOT. GET OUT 


010430 


017737 


1 70566 


00K30 




MOV 


aTKB.TIB 


STORE BUFFER 


010436 


042737 


1 77600 


001430 




SIC 


#177600. TIB 


STRIP OFF GARBAGE 


010444 


022737 


000007 


001430 




CMP 


#7.TI8 


IS IT A *G 


010452 


001116 








BNE 


OUT 


IF NOT GET OUT 


010454 


104000 








TYPE 




ECHO *G 


010456 


015455 








CNTG 






010460 


005077 


170542 






CLR 


aTP8 




010464 


104000 






CNTLU: 


TYPE 


.•ALLOW SWR TO BE TYPED 


010466 


015463 








SUR 






010470 


017746 


167474 






MOV 


aSRPTR.-(SP) 


•MOV CONTENTS OF SWR 


010474 


004737 


010730 






JSR 


PC.TYPOC 


•OCTAL TYPE OUT ROUTINE 


010500 


022600 








CMP 


(SP) ♦.RO 


•CORRECT STACK POINTER 


010502 


104000 








TYPE 




■ALLOW NEW= TO BE TYPED 


010504 


015473 








NEW 






010506 


005037 


001426 






CLR 


TEMPS T 


•CLEAR TEMP STORAGE LOC 


010512 


012737 


000007 


001416 




MOV 


*7,C0UNT1 


;SET UP TO ACCEPT 7 CHAR 


010520 


105777 


170474 




1$: 


TST8 


STKS 


;IS CHARACTER THERE? 


010524 


100375 








BPL 


1$ 


;lf NOT. TRY AGAIN 


010526 


117737 


170470 


001430 




MQVB 


aTKB.TJB 


; PICKUP CHARACTER 


010534 


105777 


170464 




8S: 


TST8 


arps 


; CHECK PRINTER STATUS 


010540 


100375 








BPL 


8$ 


:NOT READY, TRY AGAIN 


010542 


113777 


001430 


1 70456 




MOVB 


TiB.aTPe 


rPRINT IT 


010550 


042737 


177600 


001430 




SIC 


#177600. TIB 


; STRIP OFF GARBAGE 


010556 


122737 


000025 


001430 




CMP8 


*25.TIB 


;IS IT A *U 


010564 


001001 








BNE 


2$ 


;8RANCH IF NOT 


010566 


000736 






3$: 


BR 


CNTLU 


r START OVER 


010570 


122737 


000015 


001430 


2$: 


CMP8 


#15. TIB 


;IS IT A <CR> 


010576 


001006 








BNE 


4$ 


.BRANCH IF NOT 


010600 


104000 








TYPE 




;TYPEOUT <CR> AND <LF> 


010602 


015510 








SCRLF 






010604 


022737 


000007 


001416 




CMP 


#7.C0UNT1 


.WAS <CR> FIRST CHAR 


010612 


001033 








BNE 


7$ 


.•CHANGE SWREG IF NOT FIRST 


010614 


122737 


000060 


001430 


4S: 


CMP8 


#60. TIB 


;IS IT LESS THAN 0 


010622 


005004 








BGT 


5$ 


;G0 TO ? ROUTINE IF SO 


010624 


122737 


000067 


001430 




CMP8 


067, TIB 


.•iS IT GREATER THAN 7 


010632 


002003 








BGE 


6$ 


.•GO TO ? ROUTINE IS SO 


010634 


104000 






5$: 


TYPE 




;SET UP FOR ? TYPEOUT 


010636 


015503 








QUEST 






010640 


000752 








BR 


5$ 


; START INPUT STRING OVER 
.-MULTIPLY BY TEN 


010642 


006337 


001426 




6$: 


ASL 


TEMPST 



J 



fZDLBCO DL11-E ON Llf« TSET MACVI 304(1052-) 10 
CZDLBC.PH 19-JUL-79 15:06 

1948 0106A6 006337 00K26 ASL 

19A9 010652 006337 001A26 ASL 

1950 010656 K2737 000060 00U30 BICB 

1951 010664 153737 001430 001426 BIS8 

1952 010672 005337 001416 DEC 

1953 010676 001756 BEO 

1954 010700 000707 BR 

1955 010702 013777 001426 167260 7$: MOV 

1956 010710 000207 OUT: RTS 
1957 

1958 
1959 

1960 010712 010046 TTIN'S: MOV 

1961 010714 010146 MOV 

1962 010716 004737 010412 JSR 

1963 010722 012601 MOV 

1964 010724 012600 MOV 

1965 010726 000002 RTI 
1966 

1967 
1968 

1%9 010730 11273/ 000001 001422 TYPOC: M0V8 

1970 010736 112737 000006 001425 M0V8 

1971 010744 112737 000005 001420 TVPON: M0V8 

1972 010752 010346 MOV 

1973 010754 010446 MOV 

1974 010756 010546 MOV 

1975 010760 113704 001425 MOVB 

1976 010764 005404 NEC 

1977 010766 062704 000006 ADD 

1978 010772 110437 001424 MOVB 

1979 010776 113704 001422 MOVB 

1980 011002 016605 000010 MOV 

1981 011006 005003 CLR 

1982 011010 006105 1$: ROL 

1983 011012 000404 BR 

1984 011014 006105 2$: ROL 

1985 011016 006105 ROL 

1986 011020 006105 ROL 

1987 011022 010503 MOV 

1988 011024 006103 3$: ROL 

1989 011026 105337 001424 DECS 

1990 011032 100020 BPL 

1991 011034 042703 177770 BK 

1992 011040 001002 8NE 

1993 011042 005704 TST 

1994 011044 001403 BEQ 

1995 011046 005204 4$: INC 

1996 011050 052703 000060 BIS 

1997 011054 105777 170144 5$: TST8 

1998 011060 100375 BPL 

1999 011062 110377 170140 MOVB 

2000 011066 105777 170132 8$: TST8 

2001 011072 100375 BPL 

2002 011074 105337 001420 7$: DECS 

2003 011100 003345 B6T 



B 4 

JUL-79 15:10 PAGE 40 



SEO 0040 



TEMPST 
TEMPST 

#60. Tie .-CLEAR Of ASCII 

TIB. TEMPST ;MOV CHAR TO TEMPST 

C0UNT1 ;ONLY WANT 6 NUMBERS AND <CR> 

5$ ;IF = 7 TOO MANY NUMBERS 

1$ ;GET NEXT CHAR 

TEMPST. aSRPTR .-CHANGE SWR CONTENTS 

PC .-RETURN TO PROGRAM 



RO, -(SP) .-INTERRUPT SERVICE ROUTINE 

R1 .-(SP) .-SAVE RO AND R1 

FC.CKSWR ;G0 TO SUBR TO SERVICE TTY INTERRUPT 

(SP) + .R1 .-RESTORE R1 AND RO 

(SP)*.RO 

.-RETURN FROM INTERRUPT 



#1.FILL1 .-SET THE ZERO FILL SWITCH 

#6.M0DE*1 .-SET FOR SIX (6) DIGITS 

#5.CNT ;SET THE ITERATION COUNT 

R3,-(SP) .-SAVE R3 

R4. -(SP) .-SAVE R4 

R5, -(SP) .-SAVE R5 

M0DE+1.R4 ;6ET THE NkTBER OF DIGITS TO TYPE 
R4 

*6,R4 .-SUBTRACT IT FOR MAX. ALLOWED 

R4,M0DE .-SAVE IT FOR USE 

FJLL1.R4 ;GET THE ZERO FILL SWITCH 

10(SP).R5 .-PICKUP THE INPUT NUMBER 

R3 .-CLEAR THE OUTPUT WORD 

R5 .-ROTATE MSB INTO "C" 

3$ ;60 DO MSB 

R5 .-FORM THIS DIGIT 

R5 

R5 

R5,R3 

R3 .-GET LS8 OF THIS DIGIT 

MODE .-TYPE THIS DIGIT? 

7$ ;8R IF NO 

*1 77770. R3 ;GET RID OF JUNK 

4$ .-TEST FOR 0 

R4 .-SUPPRESS THIS 0 

5$ ;8R IF YES 

R4 .-DON'T SUPPRESS ANYMORE O'S 

#60,R3 .-MAKE THIS DIGIT ASCII 

aTPS .-IS PRINTER READY FOR CHARACTER? 

5$ .-IF NOT, TRY AGAIN 

R3.aTPe .-TYPE OUT NU«ER 

arPS .-MAKE SURE LAST DIGIT TYPEb 

8$ 

CNT .-COUNT BY 1 

2$ ;8R IF MORE TO DO 



fZDLBCO DL11-E ON LINE TSET 
rZDLBC.PII 19-JUL-79 15:06 



MAC VII 30A(105?) 10-JUL-79 



C A 



2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20K 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 



011102 
011104 
011106 
011110 
011112 
011114 
011116 



011120 
011122 
011124 
011126 
01 1 1 30 
011132 
011134 
01 1 1 36 
011140 
011142 
011144 
011146 
011150 
011152 
01 1 1 54 
011156 
011160 
011162 
011164 
011166 
011170 
011172 
011174 
011176 
011200 
011202 
011204 
011206 
011210 
011212 
011214 



011216 



0M3U 



002402 
005204 
000742 
012605 
012604 
012603 
000207 



000301 
000311 
000321 
000331 
000341 
000351 
000361 
000371 
000401 
000411 
000421 
000431 
000441 
000451 
000461 
000471 
000501 
000511 
000521 
000531 
000541 
000551 
000561 
000571 
000601 
000611 
000621 
000631 
000641 
000651 
000661 

000000 
000000 
000037 



000000 
000000 
000037 



6$: 



BLT 

INC 

BR 

MOV 

MOV 

MOV 

RTS 



6S 
R4 
2$ 

(SP)*.R5 
(SP)+.R4 
(SP)+.R3 
PC 



.•VECTOR ASSIGNMENT TABLE 
VECTAB: 301 

311 

321 

331 

341 

351 

361 

371 

401 

411 

421 

431 

441 

451 

461 

471 

501 

511 

521 

531 

541 

551 

561 

571 

601 

611 

621 

631 

641 

651 

661 

;DL11-E REGISTER ADDRESSES 
N=0 



RCSR: 



R8UF: 



A=0 

.REPT 

RRCV 

N=N*10 

A-A+1 

.ENDR 

N^O 

A=0 

.REPT 

R8UFF 

N=N+10 

A-A*1 



31. 
\N.\A 



51. 
\N.\A 



41 



BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

RETURN FROM INTERRUPT PC 



SfO 0041 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LJNE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 

10 VECTOR 

11 VECTOR 

12 VECTOR 

13 VECTOR 

14 VECTOR 

15 VECTOR 

16 VECTOR 

17 VECTOR 

20 VECTOR 

21 VECTOR 

22 VECTOR 

23 VECTOR 

24 VECTOR 

25 VECTOR 

26 VECTOR 

27 VECTOR 

30 VECTOR 

31 VECTOR 

32 VECTOR 

33 VECTOR 

34 VECTOR 

35 VECTOR 

36 VECTOR 



D 4 
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CZDLBC.PII 15:06 SEO 004? 



CJKM 












.tNUK 




<rUO 1 




UUUOUU 








ki-n 




<:Uo^ 




OUUUUU 








A-U 








nfWlT7 






1 1, an. 


PPPT 


XI 














r VMT 


\KI \ A 
















cvJoo 












A — A-^l 
M— 1 




















c\K>o 












(U-n 
iX-U 




cUoV 




UUUUUU 








A-n 




CKJryJ 


ni 1 cm 


rtr»finx7 
yjwv^i 






TDl IF • 


PPPT 




cyjf 1 












TQl if f 
1 our r 


\KI \ A 


c\)f c 












ni— ni^ 1 V 




->C\7X 




































UUUUvU 












cKlfO 




c\(v\n'K7 








PPPT 


71 
3 1 • 


pn77 












I CP 




3r>7fl 
c\)fo 












Kl— M«1 

•M 111" i 




evil 7 




















UUUwU 








N-0 
















.REPT 


XP 














ISRT 
















N=N*1 
















.ENDR 














.MESSAGES 






v 1 C J f 0 


OAI AAS 


n^pi ^p 


n^ 1 1 1 i 


MTITLE: 


.ASCII 


ALCl/LOLV L/L 1 1 C Ufl Lime ICO (A 


c\JOf 




n^nin't 












CK/OO 


ni PA1 ? 


VcOmO I 


npnins 

VCU 1 \JJ 


nz»7i 1 7 

V/*# flit 










ni PAPn 

U 1 cue w 


n/i^n^n 


0/^71 1 1 

V*t fill 


npnins 








?n<jn 


ni PftPA^ 


n^psp^i 


nspip'^ 

yjjc 1 c J 


n^s 










ni PA^^ 




n^nsi 


\JC\J 1 c V 




.ASCII 






nip^n 


n^^i 1 7 


(\L7C\LC\ 


0531 OS 










niPA<&A 


041511 


051505 


0500^0 










ni PA^^ 

w 1 CO 


n^pspp 














V 1 COOc 
















niP^%A'^ 










.ASCII 


*tt INP n-ADR TRAP ATZa* 




ni PA7n 


npno^n 




n^pini 








Cv/tO 


ni PA7A 

V 1 cOr 0 


npnip? 

ucv I cc 


v/CV/V/MV 


020040 










ni P7n^ 


nsiip^ 

1 1 CH 




040440 










niP7ip 

U 1 c ' 1 c 


nppsp^ 

Ucc^c** 


ion 










c 1 V 1 


niP7is 

V 1 C f 1 J 






npnn^n 

VC vV/M V 


ML INE : 


.ASCII 


1 f 




\J \ CI cc 


n^n 












C 1 V J 


vie' C J 


nz^n 


npon^n 


npnn^n 
n'.n 
npnn^n 


MDADR: 


.ASCII 


f 1 


C 1 


niP7^n 


npnn^o 

vc vvHv 


opnn^n 

V/C v/ V** v/ 










ni P7^*> 

\J 1 CI J J 


n^n 




MTRAP: 


.ASCII 






ni P7^p 

w 1 c ' He 


CS77LL(\ 


inn 










Pin? 


niP74S 


n^s 


n^7Si^ 


n^psift 


MNONE: 


.ASCII 






niP7SP 
\J I c 1 JC 


n^^n^n 




niPl 1ft 










\j 1 ci ov 














2110 


01 2762 


052045 


050131 


020105 


MSWSE.: 


.ASCII 


'XTYPE IN PROGRAM NUMBER 3' 


2111 


012770 


047111 


050040 


047522 








2112 


012776 


051107 


046501 


047040 








2113 


013004 


046525 


042502 


020122 








21 K 


013012 


020040 


040040 










2115 


013016 


042445 


051122 


051117 


MTERR: 


.ASCII 


■XERROR - UNEXPECTED ^RAP' 



fZDLBCO DlH-E on line TSET 
r/DLBC.PM 19-JUL-79 15:06 



MACvn 30A(1052; 



E A 

1P-JUL-79 15:10 PAGE 43 



SfO 004 5 



?1 16 


01 3024 


026440 


052440 


042516 








?^ 1 7 


013032 


0501 30 


041505 


042524 








?i ia 


01 3040 


020104 


051124 


050101 








?n9 


013046 


052045 


050120 




ASCI I 


'X TRAPPED TO ' 


?1?0 


01 3054 


042105 


052040 


0201 1 7 








?^2^ 


013062 


040 














013063 


040 


020040 


020040 


MTO: 


.ASCII 


1 i 




01 3070 


020040 


040 










2'' 25 


013073 


045 


051124 


050101 




ASCII 


'XTRAPPED FROM PC ' 


013100 


042520 


020104 


051 106 








2126 


013106 


046517 


050040 


020103 








2127 


013114 


040 












2128 


013115 


040 


020040 


020040 


MFROM: 


.ASCII 


• a' 


2129 


013122 

V * J ICC 


020040 


040040 










2130 


013126 


020040 


020040 


020040 


r SRADD • 


ASCII 


• a* 


2131 


013134 


100 












2132 


013135 


045 


040506 


051514 


RINTM: 


.ASCII 


'XFALSE INT. RCVRa* 


2133 


013142 


020105 


0471 1 1 


027124 








2134 


013150 


051040 


053103 


040122 








2135 


013156 


043045 


046101 


042523 


TINTM: 


•ASCII 


'XFALSE INT XMITa' 


2136 


013164 


044440 


052116 


054040 








2137 


013172 


044515 


040124 










2138 


013176 


050^^45 


036503 


040 


EMO: 


.ASCII 


'XPC= ' 


2139 


013203 


040 


020040 


020040 


APC: 


•ASCII 


' a* 


2140 


013210 


020040 


040040 










2141 


013214 


020040 


054124 


051503 


ATXCSR: 


.ASCII 


• TXCSR = * 


2}^2 


0 i 3222 


020122 


020075 










2143 


013226 


020040 


020040 


020040 


ATXUAS : 


•ASCII 


• a* 


2144 


013234 


100 












2145 


013235 


040 


051040 


041530 


ARXCSR: 


.ASCII 


• RXCSR = " 


2146 


013242 


051123 


036440 


040 








2147 


013247 


040 


020040 


020040 


ARXUAS : 


.ASCII 


a' 


2148 


013254 


040040 












2149 


013256 


022445 


051 120 


030107 


POTIT: 


.ASCII 


'XXPR60 - SINGLE CHAR LINE MODE TESTa' 


2150 


013264 


026440 


051440 


047111 








2151 


01 3272 


046107 


020105 


044103 








2152 


013300 


051101 


046040 


047111 








2153 


013306 


020105 


047515 


042504 








2154 


013314 


052040 


051505 


040124 








2155 


013322 


022445 


051120 


030507 


P1TIT: 


.ASCI 1 


'XXPRGl - SPEC BIN COUNT LINE MODE TESTd" 


2156 


013330 


026440 


051440 


042520 








2157 


013336 


020103 


044502 


020116 








2158 


013344 


047503 


047125 


020124 








2159 


013352 


044514 


042516 


046440 








2160 


013360 


0421 1 7 


020105 


042524 








2161 


013366 


052123 


100 










2162 


013371 


045 


050045 


043522 


P2TIT: 


.ASCI I 


•XX^^RG2 - SPECIAL MESSAGE LINE MODE TESTa' 


2163 


013376 


020062 


020055 


050123 








2164 


013404 


041505 


04051 1 


020114 








2165 


013412 


042515 


051523 


043501 








2166 


013420 


020105 


044514 


042516 








2167 


013426 


046440 


042117 


020105 








2168 


013434 


042524 


052123 


100 








2169 


013441 


045 


050045 


043522 


P3TIT: 


.ASCII 


•UPRG3 - RECEIVE MESSAGE TESTa* 


2170 


013446 
0-3454 


020063 


020055 


042522 








2171 


042503 


053111 


020105 









fZDlBCO DL11-E ON LINE TSET 
CZDLBC.Pn 19-JUL-79 15:06 



MACVll ^0Avi05i^) 
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19-JJL-79 15:10 PAGE ^4 



bEO 0044 



2172 

2173 

21 7A 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

^182 

?183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2221 

222U 

222S 

2226 

7227 



013462 

013470 

013476 

013477 

013504 

013512 

013520 

013526 

013534 

013542 

013546 

013554 

013562 

013570 

013576 

013604 

013612 

013620 

013624 

013632 

013640 

013646 

01 3654 

013662 

013663 

013670 

013676 

013704 

013712 

013720 

013726 

013734 

013742 

013750 

013756 

013764 

013772 

014000 

014001 

014006 

014014 

014020 

014026 

014034 

014042 

014047 

014054 

014062 

014070 

014074 

014102 

014110 

014112 

014117 

014120 

014121 



042515 
020105 

100 
045 
020064 
041505 
042515 
020105 
024040 
046101 
050045 
020055 
042440 
042524 
044523 
054501 
043040 
052111 
052045 
047111 
046501 
020123 
0461 1 7 
072 
045 
030055 
040510 
043516 
052045 
042524 
040510 
042504 
044502 
052111 
040440 
040524 
042524 
100 
045 
040507 
040524 
046445 
044514 
047117 
047511 
040 
051440 
020040 
051501 
020040 
040510 
020056 
020040 
007 
100 
045 



051523 
042524 

050045 
020055 
040511 
051523 
042524 
050123 
040051 
043522 
040504 
044103 
052123 
043516 
040516 
041501 
040131 
050131 
050040 
052105 
051501 
047514 

044502 
036440 
020122 
044124 
050131 
052123 
020122 
044440 
033524 
020060 
020116 
020114 
020040 

0461 1 1 
020114 
040045 
045501 
042516 
042516 
027116 
040504 
041057 
020040 
020072 
020040 
020122 

020040 



040077 



045501 
052123 

043522 
050123 
020114 
043501 
052123 
051111 

020065 
040524 
0201 1 7 
052440 
046440 
042122 
0461 1 1 

020105 
051101 
051105 
043040 
051527 

030524 
041440 
042514 
040045 
020105 
041440 
047503 
020116 
041055 
043117 
041517 
054502 
020040 

042514 
040504 

020105 
041440 
052103 
100 
040524 
020072 
053440 

041440 
047516 

100 



P4TIT: .ASCil •j;j;PRG4 - SPECIAL MESSAGE TEST (SPIftAL)a' 



P5TIT: .ASCII •J:PRG5 - DATA ECHO TEST USING MAYNARD FAClLlTVa" 



SELPAR: .ASCII 'XTYPE IN PARAMETERS AS FOLLOWS:' 



.ASril 'XeiTI-O = CHAR LENGTHXa* 



SELCAR: .ASCII 'XTYPE TEST CHAR CODE IN BIT7-eiT0 OF AN OCTAL BYTE 



DTERR: .ASCII 'XILLEGAL DATAXa' 

MAKCON: .ASCII 'XMAKE LINE CONNECTION. a* 

CERDAT: .ASCII ' DATA S/B: ' 

CS8: .ASCII • WAS: ' 

CWAS: .ASCII ' CHAR NO. ' 



CRNLW: .ASCII * 3' 

ENDPAS: .BYTE 007 

.ASCII 'a* 

AINPRC: .ASCII 'X1^* 



ZDLBCO 0L11-E ON LINE TSET 
rZDLBf.Pn 19-JUL-79 15:06 
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SEO 0045 



2228 

2229 

2210 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2271 

727k 

2275 

227t 

2277 

2279, 

2279 

2280 

2281 

2282 

2283 



014124 
014132 
014140 
014142 
014146 
014154 
014162 
014170 
014176 
014204 
014212 
014220 
014225 
014232 
014240 
014246 

014252 
014254 
014262 
014270 
014276 
014304 
014312 
014320 
014326 
014334 
014336 
014344 
014352 
014353 
014360 
014366 
014371 
014376 
014404 
014412 
014A20 
014426 
014433 
014440 
014443 
014450 
014456 
014463 
014470 
014473 
014500 
014506 
014510 
014516 
014524 
014532 
014540 
014546 
014554 



050045 
052105 
020075 
020040 
041440 
052040 
042116 
051440 
046045 
047503 
044524 
042101 
045 
043511 
047511 
020040 

015 
044124 
041511 
053517 
020130 
042105 
020122 
040514 
043517 
045503 
030040 
033065 

045 

045 
043040 
022504 

045 
052522 
040522 
051117 
052111 
047522 

045 
021440 

040 
020123 
052103 

045 
021440 

040 
020123 
042105 
052045 
047111 
046101 
043116 
052101 
047111 
026460 



051101 
051105 

040040 
042514 
0201 1 7 
047040 
052105 
047111 
047116 
047117 
027105 
047503 
051125 
020116 
040040 

012 
020105 
020113 
020116 
052512 
047440 
044124 
054532 
020123 

031061 
034067 

044514 
044501 

100 
053117 
026116 
042515 
050040 
020131 
022522 
044514 

040 
020040 
042523 
042105 
044514 

040 
020040 
040503 

050131 
047440 
020072 
043511 
047511 
041040 
020061 



046501 
020123 



051101 
042523 
052117 
040056 
020105 
041505 
046440 
100 
043116 
052101 
020043 



052521 
051102 
047506 
050115 
042526 
020105 
042040 
040502 

032063 
027071 

042516 
042514 

051105 
043040 
020054 
051101 
051105 
100 
042516 

040527 
042514 
100 
042516 

040527 
046114 

020105 
052103 
04750^ 
051125 
020116 
052111 
020046 



PARMTS: .ASCII 'tPARAWETERS 



APARM: .ASCII * 3' 

LINCHM: .ASCII ' CLEAR TO SEND NOT SET. 3' 



LINMAD: .ASCII 'XLINE CONNECTION MADE. 3' 



ACONFIG: 



.ASCII '^CONFIGURATION » ' 



.ASCII 



3' 



TCONFIG: 

.EVEN 

PRG2M: .BYTE 015.012 

.ASCII 'THE QUICK BROUN FOX JUMPED OVER THE LAZY DOGS BACK* 



.ASCII • 0123456789. X' 



LFAIL: .ASCII 'XLINE FAlLEDXi" 



ROVER: .ASCII 'XOVERRUN. FRAME. OR PARITY FRRORZa* 



ALINEX: .ASCII 

TLINEX: .ASCII 

ALINE: .ASCII 

TLINE: .ASCII 



XLINE # • 

WAS SELECTEDa" 

XLINE # • 

WAS CALLED* 



ASCII 'XTYPE IN OCTAL: CONFIGURATION IN BITO-1 & MODEM TYPE* 



CZDLBCO DLll-t ON uINE ^SET 
rZDLBf.PII 19-JUL-79 15:06 



H 4 
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StO 00-;' 



2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2500 

2501 

2502 

2505 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

25U 

2515 

2516 

2517 

2318 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2550 

2551 

2552 

2555 

2554 

2555 

2556 

2557 

2558 

2559 



014562 

014570 

01457h 

014602 

014610 

014616 

014624 

014652 

014655 

014640 

014646 

014654 

014662 

014670 

014676 

014704 

014712 

014720 

014726 

014750 

014756 

014744 

014752 

014760 

014765 

014770 

014776 

015004 

015012 

01 5020 

01 5024 

015052 

015040 

015046 

015054 

015062 

015070 

01 5075 

015100 

015106 

015114 

015122 

015150 

015151 

015156 

015144 

015152 

015155 

015160 

015166 

015174 

015202 

015205 

015210 

015216 

015224 



047515 
054524 
044445 
051124 
050475 
056461 
020040 
100 
045 
044440 
040524 
041040 
020064 
044514 
054440 
042522 
044514 
047522 
040040 
054445 
046101 
051106 
0471 1 1 
020040 
045 
020125 
041040 
020116 
052101 
047117 
052045 
044514 
027117 
041517 
047111 
051440 
020040 
045 
042526 
051106 
055517 
044501 
100 
045 
040507 
042516 
100 
045 
040507 
044526 
042104 
100 
045 
044440 
040524 
044502 



042504 
042520 
020116 
020040 
051460 
050062 
020040 

054524 
020116 
020114 
052111 
044124 
042516 
052517 
041440 
045516 
020115 

052517 
042514 
046517 
020105 

100 
051120 
040504 
052125 
047117 
020101 
040105 
050151 
042516 
044440 
040524 
041040 
035455 

100 
042522 
042522 
046517 
051105 
052514 

0461 1 1 
020114 
047040 

0461 1 1 
020114 
042505 
042522 

054524 
020116 
020114 
020124 



.ASCII 'XIN BIT2 (0=105, 1=202) 



Si' 



.ASCII 'XTYPE IN OCTAL IN BITO-4 THE LINE * rOJ ARE CALLING f ROM d' 



.ASCII 'XYOU CALLED FROM LINE # ' 



020115 

044502 
050050 
020054 
024462 
020040 

042520 URU: 
041517 
047111 
026460 
020105 
021440 
040440 
046'01 
J45040 
020040 

041440 UR: 
020104 
046040 
020045 

URA: ASCII ' 3* 
051505 BUTTON: IaSCII 'XPRESS DATA BUTTON ON DATA PHONEi* 
040524 
047524 
042040 
044120 

020105 LDLINE: .ASCII 'XTYPE LINE NO. IN OCTAL IN BIT 5-7 8' 

047040 
020116 
020114 
052111 
020040 

047503 flPWRF: .ASCII 'WECOVERED FROM POWER FAILUREi" 

020104 
050040 
045040 
042522 

042514 MMODX: .ASCII 'XILLEGAL LINE NO. 3' 

044514 

027117 

042514 MMODD: .ASCII 'XILLEGAl DEVICE ADDRESSi' 

042504 

040440 

051525 

042520 MM0D1: .ASCII 'XTYPf IN OCTAL : BIT 0-5 THE LINE NUMBER OF DEVICE ADDRESS TO Bfc* 

041517 

020072 

026460 
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015232 


020065 


04^124 


020105 








01 5240 


044514 


042516 


047040 








01 5246 


046525 


042502 


020122 






23A3 


015254 


045117 


042040 


055105 






25A4 


01 5262 


041511 


020105 


042101 






25A5 


015270 


051104 


051505 


020125 






25A6 


015276 


047524 


041040 


105 








015303 


040 


047515 


044504 




.ASCII ' MODIFIED 3' 


2348 


015310 


044506 


042105 


020040 






2349 


015316 


020040 


100 








2350 


015321 


045 


054524 
0201 16 


042520 


MM0D2: 


.ASCII 'XTVPE IN NEW RXCSR DEVICE ADDRESS 


2351 


015326 


044440 


042516 






2352 


015334 


020127 


054122 


051505 






2355 


015342 


020122 


042504 


044526 






2354 


015350 


042503 


040440 


042104 






2355 


015556 


042522 


051523 


020040 






2556 


015364 


020040 


100 






.ASCII 'XTVPE IN 177777 TO CHANGE ANOTHER' 


2557 


015367 


045 


054524 


042520 


MMODS: 


2558 


015374 


044440 


020116 


033461 






2559 


015402 


055467 


035467 


020040 






2360 


015410 


047524 


041440 


040510 






2361 


015416 


043516 


020105 


047101 






2362 


015424 


052117 


042510 


122 






2365 


015451 


040 


042504 


044526 




.ASCII ' DEVICE ADDRESS i' 


2364 


015436 


042503 


040440 


042104 






2365 


015444 


042522 


051525 


020040 






2366 


015452 


020040 


100 








2367 










•»»*••* 


CHGC5 ••••** 


2368 


015455 


040 


057040 


020107 


CNTG: 


.ASCII / *G i/ 


2369 


015462 


100 










2370 


015465 


040 


051440 


051127 


SWR: 


.ASCII / SWR= a/ 


2371 


015470 


020075 


100 








2372 


015475 


040 


047040 


053505 


NEW: 


.ASCII / NEW- a/ 


2373 


015500 


020075 


100 








2374 


015505 


040 


037440 


0400'tO 


QUEST: 


.ASCII / ? a/ 


2375 


015510 


040045 






SCRLF : 


.ASCI J /xa/ 


2376 














2377 












.EVEN 


2578 


015512 


000000 






OUTBUf : 


OF»EN 


2579 




01 7462 








.=OUT8UF*1000. 


2580 


017462 


000000 






I^euF : 


OPEN 


2581 




021432 








.=INBUF*1000. 


2382 




015656 








BUFF=OUT8UF*100. 


2385 


021432 


000001 






DEND: 


.END 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0OA^' 



M - 


fVW\t7 
\J\J\AJJf 






pns^jf 

CUP»»* 


PDSSlf 
cUPPw 


PDAI * 


nut 1 


U I *«cc5 


1 

1 H JO 


pp/,n* 








AIMM 




1 1 


1 1 L'PM 








hU I t'Mr' 




"i POP 


1 PPR« 












1 1 "IXM 


1 1 ■^A 












AAA 


?P?7* 
etc f * 








ML inlt 


ni z-A/kX 












Al T klC V 


U 1 J J 


1 1 7P 
life 










ADADM 


U 1 *♦ 1 H c 


1 PZ.1 
1 c** 1 


PP71 « 












T J 1 


OA 7 

TO' 


PI ^Q* 

C 1 JTW 










TP T 


C t P^ 










ni ^?^7 


OSQ 

T J T 












01 7P1 A 


T JD 










A T yuA'^ 


ni 7??*'. 












DUL'MV 




01 n 

T 1 V 


1 1 07* 

1 1 T r w 












1 ?n4* 


1 ?07 








DULnlVO 






1 ?1 1* 












1 ?nn» 

1 cvv" 


1 ?1 ?* 

1 C 1 












1 Pfil » 


1 ?08 

1 cvO 


1 PI ^* 






B [ TO 


noftoni 

v/VAAA/ 1 


s?S/r 


7S? 

r PC 


0 ' T 


1 P47 


C J 1 


BI T1 




PcH« 


1 ?44 


147^ 






BI Tin - 




S1 Sir 










BI T1 1 - 




514* 










HI T1? _ 


010000 


51 


1487 








BIT13 


OPOOOO 




9?6 


96? 


1303 


131 7 


fir Tii _ 




511* 


1 310 


14?? 

1 *t c C 






Bins r 


100000 


509 


510* 


1414 


1639 




□ lie 




5?3* 


1606 


16?8 


174? 




fir 


000010 


5??* 










R I T/< 

3 i 1 *f 

BITS 


OOOOPO 


5?1* 


1 128 








0000^0 


5?0* 


1113 


1 1?0 

1 1 C V 


1 137 




BI 


000100 


519* 


753 


754 




11 11 






1673 


1713 


1714 

If It 


1725 




Rl T7 = 


OOOPOO 


518* 


1040 


11 09 


1116 




D I TH 

□ i t o 


000400 


517* 










B r T9 


001000 


516* 












004? A? 


1 190* 


119? 










OOA252 


1 186* 


1?10 


1557 






fit IF F 

□or r 


01 S^=>5^> 


1 360 


1 365 


137? 


1 390 

1 ^Tw 


14?0 


DLir r r 


OOKOO 




1358* 


1359* 


1 360 


1365 






1440 




?^0R* 






TAI 1 FD 


001404 




1 ^47 


1 391 


1 AO^ 


1431 * 


TAI 1 FR 


00140? 
001 %? 


695* 


1396 


1471 • 


1 5?4 








90? 


1 109 


1111 
1 1 1 1 


111^ 




014047 


91 5 


??1 7* 










104005 


541* 












000?3? 


613* 

U 1 ^W 












01041? 


1903* 

1 TV/-/W 












00?004 


78?* 










rwi T 




^^0 










CKSUR 


010412 


1904# 


1962 








CNT 


001420 


705* 


1971* 


2002* 






CNTG 


015455 


1913 


2368* 








CNTLU 


010464 


785 


1915* 


1933 






CNVf TR 


004432 


1203* 


1206* 


1225* 






coim 


007730 


1743* 


1761* 


1763* 


1 770* 





2062* 2068* 2069* 2C75* 



'847 



1860 



1874 



1317 1444 1479 1496 1794 



1809 



1530 



1543 1612 



1672 



1421 
1375< 



1528 
1420* 



2382* 



1243* 1246* 1249* 12S3* 1818 



rZDLBCO 


DL11-E ON LINE 


TSET 


MACYII 


30A(1052) 


19-JU 


r 7f\i Qr 


D1 1 1 Q_ II H — 7Q 


1 5 . rw. 
1 i . UO 




CROSS REFERENCE 


rnur \ c 


\jM \ JJC 




1 1A1 
1 JO J 


1376 


1435* 






1 Alfl 


1 A75 


1513-r 




LUUN 1 


nni 15^ 


Or 


1 ni/.» 


1052* 


1053 




UU iH lO 




Itc J* 


1938 


1952* 






01 P 












0^7 


tOv^ 






f OWTW A 


noil 05 


o^n* 

VOU" 


OA1 * 
TQ 1 " 


969# 




r ov Tvn 
I n A 1 AD 




tPO" 


T JT" 


970# 




LnA 1 AL 


noil 1 n 


OA1 

TO J 


Q75* 
yf cff 








U 1 H\JOC 


on 7 


5?1 QM 
CC 1 T» 








ni 11 ?A 


onu 

tUo 


ono 
tUt 


1417 


1426 






ooo* 


oi 1 

T 1 1 


1178* 


1181* 






tUO 


CLCiff 








1 (V.fW. 




1 ifln 


1395 


1399 




Uv JO 1 U 














1 1 QR 

1 1 If o 


1 P11* 

1 C J JW 












1 11 1 

1 J 1 J 


1441 


1476 


















1 c 1 0" 


1 31Q* 

1 c 1 T" 


1222* 


1223 








1 hhO 


1482 


1508* 






KQ7M 


A?? 








(W>1 7P 




AP?» 
Oct " 










in7?» 


107^ 
1 Uf *♦ 


1084# 




hi V 




OOt 


1 ur cff 






hi VA 




1 Uf O* 


inai 

1 VJO 1 






hi VR 




in77if 

\\J( 1 99 


in7fl 

1 Uf o 






hi Yf 
L/L T V. 




1 V/f J 


^Clf^?M 






hn f r 




1110 

MIT 


1 1 pi 

1 1 C2 


1127 


1131 






1 1 1H 

1 1 JO 


1 1 LCMI 
1 1 










OJT 


onPiT 

TVt" 










tuh 


Q1 A« 

T 1 Ow 










1 UOc 


PP1 nif 








no 1^7^ 


1 nz.1 if 








'MAI T — 


in^nin 




017 

TJf 


972 




-Ml T 


nnp^SA 

UvtH JO 


AA1 

OOj 


OTDw 






PMI TA 




R07 

OTf 








c 1 on 1 


nni7in 


1 1 in 

1 1 1 U 


1 1 1 Oft 






PMT A 


nn?ii ? 










-MT TMT 


nopinn 

VA/t JvV 


^O^ 


Omt« 










OjJff 


OPH 






PMD 


ni 11 7A 


oil 

TJ J 


OAR 

TOO 


2138# 




PMnPA<: 


m/.i 1 7 


1 Ano 

1 Hut 


1 HP7 


222S» 




~OD 

- tn 


no? '570 


O JO 


01 Ri^ 
T 1 off 








VA/cD*tl/ 


OP1 

Tt 1 


ycon 








00P70P 

VA/C f VC 


Q1R* 

T 1 O " 


010* 

T 1 T" 


922* 


923* 




nn?7in 


0?7 

Tc f 


01 7# 

TJf 




nini 7? 


iRni * 


IR??* 
locc" 


1829^ 






noP7?n 


TcO" 


TCT" 


931 


940# 




no???? 


07n* 


OP^ » 

TCP" 


938 


94^ 






3 JT* 


1 l^s 


1446 


1481 








onR 

TWO 


914 


PRRRy - 






1 11 o 

1 J 1 T 


1416 


1425 


-RRTy - 




/HOW 


1 7nA 

1 ' wO 






-RR1 


002612 


666 


9??Jt 






ERR5A 


007306 


1646 








ERR3B 


007322 


1648 


1679# 
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seo o(x.9 



1436* 
1117* 



1455 
1121* 



1485 
1125* 



1522 
1129* 



1534 
1135* 



2130* 
1372* 



1381* 1382 1400* 1401 



924* 

964* 
1489 
1675 



934* 

965* 
1498 
1679 



967 
1520 
1682 



1814 1821 
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TSET 


MACY11 


30A(1052) 


19- JUL 
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CZDLBC 


.Pll 19-JUL-79 


l!>:0o 




CROSS REFERENCE 


1 AtsLc - 


ERR5C 


007330 




1 one'' 








ERTP 


004576 


4o<: 


1 0/ 


486 


488 


/ OA 


ERTPA 


004646 




1 OQ/ 








FILL 


004224 


1 1 


1 / AC 

i*»Uo 








FILLA 


004252 


1 1 


1 1 OO 








FILL1 


001422 


f\jt>>' 


1 QAQ* 


19"'9 






FINISH 


005554 


1 10/ 

1 3o*» 


1 / r\7* 








FIVE 


003776 


1 1 1 c 

MID 


1 1 OQ* 








FMAP 


001350 


bodlf 


(DC* 


1283 


1288* 




FfgONE 


001346 




70C * 


769* 


774 




FORMAD 


004762 


/^D 1 


1 oqoj» 








FROMPC 


001342 


Of^lf 


1 OA/ * 


1270 


1281* 




FTITLE 


001344 


toUM 


71 / » 
/Is" 


720 


724* 


770* 
/ f 0* 


GENPAR 


003656 


1 1 no* 


1 A1 / 
1 O 1 s 


1755 


1808 




I^euF 


01 7462 


1 J J J 


1 700 


1419 


2380* 


0701 

t JO 1 


INBUFP 


001376 


^qtm 


1 7C7» 

1 j33* 


1354* 


1355 


1 70Q* 


INCPRG 


002432 




AC/ 


885« 






INDAT 


003400 




1 AA/ 








INFIL 


004220 


1 1 ro* 


1 CDA 








LDLINE 


015024 


11/7 


071/ * 








ldpri 


010352 




ICO/ 
1 OOh 


187U 






LDPRIA 


010366 


1 Q7L M 

\ofHm 


1 OOA 

1 ooU 








LDPR I X 


010402 


1 Q7^ 


1 070* 
\oroK 








LDTVEC 


010304 


1 C/Ll 
1 JOJ 


1 COC 

1 JO J 


1856* 






LDTVED 


010324 


1 Q^f\M 

1 ooUw 


1 OA7 

1 OO/ 








LDVECB 


010260 


1 OA 7^ 


1 0C7 

1 OJ J 








LDVECS 


010240 


1 QAA 

1 JOH 


1 COA 
1 JOO 


1843« 






LDVECl 


010272 


1 a/ s 


1 OCA* 

1 OjU« 








LDVEC2 


010340 


1 0A1 


1 OA/ * 

1 oo*»« 








LFAIL 


014353 


1 ^7/L 


OOCO* 








LINCA 


005036 




1 701 








LINCB 


005054 




1 71 1 








LINCF 


005134 


1 11 B 


1 700* 








LINCHM 


014146 


1 7 OA 


1 7Q7 

1 /y/ 


2232* 






LINCON 


005020 


1 Tno* 


1 AA7 
1 OU/ 


1615 


1629 


1 7/ <; 
1 / «» J 


LINE 


001330 


Or J* 


1 770* 


1429 


1466* 


l<>Oo 


LINE NO 


001354 


AO/ * 


70A* 

/^ cO* 


730* 


747 


7CO 


LINEUP 


005152 


1 7n/ 


1 7 OA* 








LI^#1AD 


014176 


1 7'3^ 


1 / C7 
l*» JJ 


1800 


2236* 




LINSA 


004134 


1 1 ^7» 
115/* 


1 1 AA 
1 SOU 








LINSEL 


004072 


11/ A* 


1 AA/ 
1 OUm 


1625 


1740 


1 7flA 
1 / 00 


MACHER 


000004 


/ 0/ * 


71 O* 
f 1 O* 


719* 


727* 


7^0* 

( cO* 


MAKCON 


014020 


1 7no 


1 C7A 


1592 


1791 


001 7* 


^MNUAL 


100000 












"1APA 


001534 




7/ A 


771 






•lAPfND 


001 744 




770* 
/ / c* 








"1APERR 


001766 












»1APNE 


001564 


707 
(CI 


770* 

/ JO« 








"1AP0K 


00157<f 


777 


7/. 1 * 








iAPOKA 


001 706 


710 

JO 


7A0* 








lAPVEC 


004704 


/ on 


1 07Q* 








MDADR 


012723 


7LL 


01 A7* 












1 071 


01 OO* 
Cl COM 








MLINE 


012715 


1 HO 


r OO 


210U 






mx>o 


015153 


822 


2331* 








moox 


015131 


814 


2127U 
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SEO 0O5O 



718 



772 



1257* 1838 



845* 
1419* 



1756 



772* 



773* 1838* 1839* 



fZDLBCO 0L11-E ON LINE TS£T 
fZOLBC.PH 19-JUL-79 15:06 



MM001 

W002 

W10D3 

MNONE 

MODE 

MODEM 

MOOEV 

t«OEVl 

M0OEV2 

M00EV3 

liOVIT 

liOVITA 

MPWRF 

MSWSEL 

MTERR 

MTITLE 

MTO 

MTRAP 

N 

NFW 

NUMBER 

OACNV 

OACNVA 

OLDPS 

OPEN 



OTBUFP 

OUT 

OUTBUF 

OVRLAY 

OVRLYA 

PARBIT 

PAREX 

PARMTS 

PFAIL 

POPSP = 

P0PSP2= 

PRGIO 

PRGNUM 

PRGTA6 

PRGO 

PRGOA 

PRG1 

PRG1C 

PRG2 

PRG2A 

PRG2B 

PRG2C 

PRG2M 

PRG3 

PRG3A 



015203 
015321 
015367 
012745 
0OK24 
0OU12 
002102 
0021 K 
002150 
002174 
010174 
0102U 
015073 
012762 
013016 
012576 
013063 
012735 
000040 
015473 
001334 
003606 

003620 
001336 
000000 



001406 
010710 
015512 

005154 
005164 
001322 
004554 
014124 
002724 
005726 
022626 
001242 
001240 
001244 
006502 
006612 
006616 
006714 
006720 
006742 
006746 
006752 
014252 
007016 
007032 



806 
817 
841 
777 
707# 
700# 
610 
805# 
812 
820 
1568 
1835# 
950 
794 
1274 
723 
1267 
765 
551# 
1921 
675* 
742 
1265 
1092* 
677# 
508* 
675 
697 
884 
1212 
697# 
1905 
1328 
1670 
1328* 
1330# 
670# 
1248 
1242 
492 
526# 
527* 
646* 
645* 
647* 
647 
1572* 
648 
1594* 
649 
1607* 
1608* 
1609* 
1608 
650 
1627* 



798* 
800 
1549* 
1573 
1577* 
1595 
1602* 

1611 

1619 

1802 

1623* 

1678 



1975 
1433» 

844 
823 

1832* 



1978» 
1434* 



1989* 
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2336* 
2350* 
2357* 
2107* 
1970* 
1349 
802* 
815 
816* 
824* 
1590 
1837 
2321* 
2110* 
2115* 
2086* 
2122* 
2105* 
2047* 
2372* 
1176* 
746 
1269 
1101 
1257* 
597 
685 
699 
934 
1213 
1418* 
1907 
1374 
2378* 
1561 
1333 
1116* 
1250* 
2228* 
944* 
1079 
739 



SEO 0051 



2054* 


2061* 


2068* 


2075* 


2080* 


2085* 












1179 


1180* 


1583* 


















763 


906 


907 


908 


931 


956 


959 


967 


1087* 


1171 


1241 


1429 


1455 


1468 


















1259* 


1260* 


1261* 


1262* 


1263 














598 


633 


635 


645 


646 


657 


670 


671 


672 


673 


674 


686 


687 


688 


689 


690 


691 


692 


693 


694 


695 


696 


700 


701 


704 


705 


706 


707 


708 


709 


869 


870 


883 


940 


941 


969 


970 


980 


988 


1015 


1027 


1029 


1084 


1211 


1225 


1226 


1227 


1829 


2378 


2380 












1532 


1533* 


1536 


1538* 


1541 














1911 


1956* 




















1406 


1418 


1536 


1538 


1541 


1556* 


1558 


1559 


1579* 


1581 


1638 


2379 


2382 





















1120* 
1254 

946 
1082 
1280 

951 
953 



1124* 1128* 1139 1142 



1166 



2245* 
1729 
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SEO COS. 



PRG5EX 

PRG^ 

PRG^A 

PRG4B 

PRG4C 

PRG4D 

PRG5 

PRG5A 

PRG5AA 

PRG58 

PRGSaS 

PRG5C 

PRG5D 

PRG5E 

PRTYO = 

PRFYI = 

PRTY2 - 

PRTY3 = 

PRTY4 = 

PRTY5 = 

PRTV6 = 

PRTY7 = 

PSW = 

PWRUP 

POTIT 

P1TIT 

P2TIT 

P3T1T 

PAT IT 

P5TIT 

QUEST 

RBUF 

RCSR 

RDDAT 

RDOCT 

RE COAT 

REMAP 

RESTRT 

RETRN 

RINTM 

RINT3 

RINT3A 

RINT3B 

RINT3E 

RISR 

RISRA 

RISRAA 

RISR8 

RISRBB 

RISRC 

RISRCA 

RISRD 

RISRDA 

RISREX 

RISRF 



0075A0 

007552 

007606 

007616 

007620 

007636 

00776A 

010010 

010032 

0100AO 

010050 

01005A 

010154 

010164 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

002734 

013256 

013322 

013371 

013441 

013477 

013546 

015503 

011314 

011216 

003406 
003372 
001356 
001432 
002754 
003530 
013135 
007134 
007216 
007250 
007336 
005202 
005242 
005264 
005310 
005356 
005366 
005422 
005454 
005474 
005676 
005624 



1715 
651 
1745* 
1747* 
1748* 
1750 
652 
1790* 
1796* 
1795 
1802* 
1803* 
1820 
1805 
535* 
534* 
533* 
532* 
531* 
530* 
529* 
491 
506* 
944 
1551 
1578 
1603 
1624 
1739 
1785 
1945 
731 
729 
1500 
1037* 
795 
685* 
608 
951* 
1045 
1680 
1631 
1655 
1660 
1662 
1337* 
1344 
1350 
1348 
1364 
1356 
1378* 
1377 
1391* 
1423 
1415 



■•729* 
1738* 

1767 

1752 

1753* 

1784* 

1798 

1810 

1799* 

1828 

1825 

1823* 

1826* 



634 



493 
717* 
946* 
2149* 
2155* 
2162* 
2169* 
2175* 
2182* 
2374* 



1065* 

2132* 

1645* 

1659* 

1664 

1686* 

2080 

1347* 

1353* 

1358* 

1368* 

1366 

1383 

1387* 

1402 

1428* 

1418* 



1769 
1762 



636 



495 
733* 



642 



528* 
756* 



644 



728 
792* 



756 
804* 



1258 
1257 



1565 
1258* 



1587 
1565* 



1571* 1587* 1593* 1642* 



830 


1351 


i3';3 


1358 




1443 


1478 


2056* 




826 


1156 


1340 


1392 


1397 


1444 


1473* 


1A79 


1483* 


1504 


1508* 


1509 


1513* 


1567 


1589 


2049* 






1038 


1060 
















807 


818 


842 


1032* 


1148 


1238 


U32 


1463 


1554 


903 


906 


1379* 


1394* 


1398* 










714* 



















1487 



1491 



1496 



1666 



1668* 



1371* 



B 5 



CZDL8C0 


DLll-E ON LINE 


TSET 


MACYll 


30A(1052) 


19- JUL 


-79 15: 


10 PAGE 54 
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CROSS REFERENCE 


TABLE — 


USER SYMBOLS 












SEO 


Kl bKro 




H45 


U50* 


1 LOO 
1 HTC 


1 sns 

1 JVJ J 


















D 1 CDC r 




U37 


K61* 






















D f CDC f% 


IVW1 

UUo loo 


H82* 


U90 


1 Z.OO 
1 HTT 




















D 1 CDC C 


UUoe jU 


H88 


U91* 






















D I CDC C 


UUOcUe 


K80 


K85* 






















D f vDC r 


IW^3A3 


K86 


H96* 






















D I CDC U 


UUOeOU 


K97 


1500* 






















D 1 CDA 


U 1 1 OUO 


1843 


2080* 






















D f CD1 


U 1 1 o 1 o 


2080* 
























D 1 CD1 A 


Ul 1 r\Jo 


2080* 
























D T CD1 1 


ni 1 71 A 

U 1 1 r lO 


2080* 
























D I CD1 3 


rtl 1 73A 

U 1 1 f cO 


2080* 
























D f CD1 T 


ni 1 7TA 


2080* 
























D I CD1 A 
H i on 1 *• 


m 1 7AA 
U 1 1 f hO 


2080* 
























D 1 CD1 <« 
N 1 jn 1 } 


ni 1 7^A 


2080* 
























Pi i on 1 O 


nil 7AA 
U 1 1 f OO 


2080* 
























n i OM 1 f 


ni 1 77A 


2080* 
























n i one 


ni 1 A?A 

U 1 1 OeO 


2080* 
























o t ^p?n 

n i oncU 


ni pnnA 


2080* 
























D f CB31 


ni ?ni A 


2080* 


























ni pnPA 
u 1 cUeo 


2080* 
























n 1 One J 


ni ?n7A 

U 1 ev/ jO 


2080* 
























a I CP3A 
n 1 one** 


ni PD^A 


2080* 
























n 1 one J 


ni pnsA 

U 1 CV JO 


2080* 
























n i Onco 




2080* 
























B I CB?7 
n i One ' 


ni ?n7A 


2080* 
























B F CB7 

ni on J 


ni iAV» 

v 1 i o^o 


2080* 
























B F CBVI 
ni onjv 


01 3inA 


2080* 
























B F <tttl 


ni ?1 1 A 


2080* 
























B F CBT7 
n 1 On^c 


ni ?^ ?A 

VJ 1 e 1 cO 


2080* 
























n I On J J 


ni ?i v> 


2080* 
























P F CP'^ 
nl on 


ni P1Z.A 

VJ 1 e 1 *«o 


2080* 
























P F <P'^S 
On^P 


ni PI SA 
V 1 e 1 JO 


2080* 
























P F CBV> 


ni PI AA 
VJ 1 e 1 OO 


2080* 
























B F CBZ 


ni 1 AZ.A 
VJ 1 1 o**o 


2080* 
























B F CB<t 
I On J 


ni 1 ASA 

VJ i i O JO 


2080* 
























B F ^BA 

t1 OnO 


ni 1 AAA 

VJ 1 1 OQO 


2080* 
























B F ^B7 
" i on f 


ni 1A7A 

VJ 1 1 Or O 


2080* 
























B.1UPB 


nii^7i 

VJ 1 1 


1683 


2261* 






















BPPAn 

nnC^U 


nn'^spn 

UUJJCVJ 


1047 


1049 


IUj 1 


insi 


1061* 
















no 1 r L 


nn?^?A 

lA/cHcO 


873* 


881 


DO 




















TO 1 r ow 


nn^L ^n 

VJvc** jVJ 


874* 


880 






















no 1 ncO— 


in^ni ? 


5A6* 


936 


1 in? 

1 i VJe 


1 107 

1 1 T J 


1214 
















r\0 1 nV3 


VA/c J' c 


665 


875* 






















T 1 F^ 


nfv^n'^n 

VAJhVJ jVJ 


1135* 


1143 






















BVPi IF 


nni?n? 

KAJ 1 cVJc 


630* 


1294* 


1 ^nA 

1 jvjo 


1 ■^l A 

1 J 1 O 


1323 


1650 1793 


1812 


1817 










BVn IF T 


nn7'>'>n 

\AJf J JU 


1650* 


1651 


1 ASP 
1 o Je 


1 7'^P* 


















Bvr ^B 

T A L on 


nnipno 

lA/ 1 CUv 


629* 


908 


1 1 Si 
1 1 j*# 


1 POP* 
1 c "e " 


1302 


1305* 1309 


1312* 


1315 


1322 


1340* 


1341 


1392* 






1397* 


1491* 


1 snn* 

1 jVJVJ" 


1 sni» 

1 JVJ** " 


1606* 


1628* 1641* 


1645 


1669* 


1677* 


1742* 


1789* 


17^4 






1809 


1815 






















RXCSRT 


001370 


690* 


959 


130?* 


1303 


1309* 


1310 1315* 


1317 


1322* 


1341* 


1343 


1422 


1645* 






16A7 
























RXERR 


003010 


668 


958* 






















RXLVL 


001212 


63A* 


981 






















RXVTR 


001210 


633* 


757 


761 


764 


979 


1287* 














SAVE 


001526 


672* 


1132* 


1139* 


1140 


1142* 
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CROSS REFERENCE 


lABLt — 


USER 




IU*iU 1 1 




07' 
7 J 


1087 


1186 


1 1 Q7 






\ajcjjc 


oo*» 














(V\XX7t\ 


007* 


lUUU 


1017* 


1023 


lUc9 


1 UcV* 






1 Q77 

\75r 


977C* 
CJ'J^ 










CCl TAD 


rtl 771 P 

U 1 Jf It 


1 CC7 












CCl DAD 


U 1 JOc'* 


1 977 

ICjr 


9 1 ori^ 














1 97/L« 


1 AC1 


1502 


1605 


1 A9A 


1 1 


it vCN 




1115 


1 1 "JLIt 










CIV 




1 1 1 Z 
1 1 1*1 


1 1 9n* 










CPPTD 


(v\^t^ 7n 

(AAJ 1 ' U 


COC« 


A1 7 

O 1 I 


621* 


783 


oyo 


09A 

ycb 


ow 1 


UU 1 *♦ 




1 1 77 

1 1 Ji 


1239* 


1241 


1 9AZ. 


1 9Z 7 


C T AfN 

0 1 




ouo* 


OUo* 


610* 


627# 






C T Al 1 — 


1 V**\rJc 


C7fl« 
5 JO* 














\A/ 1 HjO 


Anx> 
ouo 


71 C* 


780 


846 


OOO 


1 97A 

1 CIO 


CTADT1 


UUtUU** 


791 


77C 


783xr 










VAAJttO 


AA7 
OUf 


Ano 

OUT 


61 U 








CTrDTP- 


<V>1 Prtrt 
1 twU 


CA7* 
J\ji • 


Ai 1 

0 1 1 


715 


802 


O/ Q 

y^o 


1 A97 


ctdapa 


(AK»5 JO 


1 CH J 


1 9C1 « 


1252 










(Vl71 
UU J 1 OO 


QR^* 

TO J" 


TOOW 












nn7i 7A 

Uv J 1 JO 


077* 


you* 














AA1 
OO 1 


077# 










0 1 nA V — 


1 vSUUD 


CZ,9* 


1 A7n 










CTTWW - 
0 I 1 AV — 






1 A79 
1 0 JC 










O 1 An 1 V 


nn7i cn 


00£ 


QSC« 

yo J* 














1 9nc 


1 91 AiP 

1 C 1 0» 












fYV^77A 


1 PI 7M 


1 99n 

1 ccU 










CI nTMR 


1 c 


1 91 R 


1991* 

1 cc 1 w 










cwppr 


vA^t ->no 


o jY" 


aA7 

OOf 


869/lf 








CUPDCU 
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